diff --git a/src/icelandic/DocumentationIceFunctor.gf b/src/icelandic/DocumentationIceFunctor.gf
index b16eb68df..bf101b463 100644
--- a/src/icelandic/DocumentationIceFunctor.gf
+++ b/src/icelandic/DocumentationIceFunctor.gf
@@ -25,7 +25,7 @@ oper
 lin
   InflectionN, InflectionN2, InflectionN3 = \noun -> {
     t  = "s" ;
-    s1 = heading1 (heading noun_Category ++ 
+    s1 = heading1 (intag "i" (noun.s ! Sg ! Free ! Nom) ++ ":" ++ heading noun_Category ++ 
                    case noun.g of {
                      Masc   => "("+heading masculine_Parameter+")" ; 
                      Fem    => "("+heading feminine_Parameter+")" ;
@@ -64,7 +64,7 @@ lin
           )) ;
 	  
     in { t  = "a" ;
-         s1 = heading1 (nounHeading adjective_Category).s ;
+         s1 = heading1 (intag "i" (adj.s ! APosit Strong Sg Masc Nom) ++ ":" ++ (nounHeading adjective_Category).s) ;
          s2 =
 	   dtable (heading positive_Parameter ++ heading strong_Parameter) (APosit Strong) ++
 	   dtable (heading positive_Parameter ++ heading weak_Parameter) (APosit Weak) ++
@@ -89,21 +89,21 @@ lin
 
   InflectionV v = {
     t  = "v" ;
-    s1 = heading1 (heading verb_Category) ++  
+    s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++  
          paragraph (verbExample (S.mkCl S.she_NP v)) ;
     s2 = inflVerb v
     } ;
 
   InflectionV2 v = {
     t  = "v" ;
-    s1 = heading1 (heading verb_Category) ++  
+    s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++  
          paragraph (verbExample (S.mkCl S.she_NP v S.i_NP)) ;
     s2 = inflVerb v
     } ;
 
   InflectionV3 v = {
     t  = "v" ;
-    s1 = heading1 (heading verb_Category) ++  
+    s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++  
          paragraph (verbExample (S.mkCl S.she_NP v S.it_NP S.i_NP)) ;
     s2 = inflVerb v
     } ;