diff --git a/Registry/Grammar.hs b/Registry/Grammar.hs
index 71da97d..93bbbba 100644
--- a/Registry/Grammar.hs
+++ b/Registry/Grammar.hs
@@ -67,7 +67,7 @@ recordFactory r =
                 (lookup "Macrolanguage" r)
                 (lookup "Deprecated" r)
                 (lookup "Scope" r)
-                (lookup "Comments" r)
+                (lookups "Comments" r)
                                    ))
          "extlang" -> Right (Extl (Extlang
                 (fromJust (lookup "Subtag" r))
@@ -84,20 +84,20 @@ recordFactory r =
                 (lookups "Description" r)
                 (fromJust (lookup "Added" r))
                 (lookup "Deprecated" r)
-                (lookup "Comments" r)))
+                (lookups "Comments" r)))
          "region" -> Right (Reg (Region
                 (fromJust (lookup "Subtag" r))
                 (lookups "Description" r)
                 (fromJust (lookup "Added" r))
                 (lookup "Deprecated" r)
-                (lookup "Comments" r)))
+                (lookups "Comments" r)))
          "variant" -> Right (Var (Variant
                 (fromJust (lookup "Subtag" r))
                 (lookups "Description" r)
                 (fromJust (lookup "Added" r))
                 (lookups "Prefix" r)
                 (lookup "Deprecated" r)
-                (lookup "Comments" r)))
+                (lookups "Comments" r)))
          "redundant" -> Right (Red (Redundant
                 (fromJust (lookup "Tag" r))
                 (lookups "Description" r)