diff --git a/Registry/Utils.hs b/Registry/Utils.hs
index 34a947f..8b265d5 100644
--- a/Registry/Utils.hs
+++ b/Registry/Utils.hs
@@ -191,26 +191,26 @@ toHTML (Lang l) = (html_head ((lang'descr l) !! 0)) ++ "<p>Code <code>" ++
                      descrToHTML (lang'descr l) ++ ". " ++
                      linkLanguage (lang'subtag l) ++
                      (sscriptToHTML (lang'script l)) ++ "</p>" ++ html_tail ++ "\n"
-toHTML (GF t) = "<p>" ++ (gf'tag t) ++ 
-                     addedToHTML (gf'added t) ++ 
+toHTML (GF t) = "<p>Code <code>" ++ (gf'tag t) ++ "</code>. " ++
+                     addedToHTML (gf'added t) ++ ". " ++
                      descrToHTML (gf'descr t) ++ "</p>\n"
-toHTML (Scr s) = (html_head ((script'descr s) !! 0)) ++ "<p><code>" ++ 
-                    (script'subtag s) ++ "</code>." ++ 
+toHTML (Scr s) = (html_head ((script'descr s) !! 0)) ++ "<p>Code <code>" ++ 
+                    (script'subtag s) ++ "</code>. " ++ 
                     addedToHTML (script'added s) ++ ". Description: " ++
                     descrToHTML (script'descr s) ++ "</p>" ++ html_tail ++ "\n"
-toHTML (Reg r) = (html_head ((region'descr r) !! 0)) ++  "<p>" ++ 
-                     (region'subtag r) ++ " " ++ 
+toHTML (Reg r) = (html_head ((region'descr r) !! 0)) ++  "<p>Code <code>" ++ 
+                     (region'subtag r) ++ "</code>. " ++ 
                      addedToHTML (region'added r) ++ 
                      ". Description: " ++
                      descrToHTML (region'descr r) ++ "</p>" ++
                      html_tail ++ "\n"
-toHTML (Var v) = (html_head ((variant'descr v) !! 0)) ++ "<p><code>" ++ 
+toHTML (Var v) = (html_head ((variant'descr v) !! 0)) ++ "<p>Code <code>" ++ 
                  (variant'subtag v) ++ "</code>. " ++ 
                    addedToHTML (variant'added v) ++ ". Description: " ++
                      descrToHTML (variant'descr v) ++ ". " ++ 
                      prefixesToHTML (variant'prefix v) ++ "</p>" ++ html_tail ++ "\n"
 toHTML (Red r) =  (html_head ((redundant'descr r) !! 0)) ++  
-                  "<p>" ++ (redundant'tag r) ++ 
-                  addedToHTML (redundant'added r) ++ 
+                  "<p>Code <code>" ++ (redundant'tag r) ++ "</code>. " ++
+                  addedToHTML (redundant'added r) ++ ". " ++
                   descrToHTML (redundant'descr r) ++ "</p>" ++
                   html_tail ++ "\n"