@@ -138,7 +138,7 @@ translateIdentifier =
139translateNamespace :: Name -> [String]
139translateNamespace :: Name -> [String]
140translateNamespace (UN _) = [idrNamespace]
140translateNamespace (UN _) = [idrNamespace]
141−translateNamespace (NS _ ns) = map translateIdentifier ns
141+translateNamespace (NS _ ns) = idrNamespace : map translateIdentifier ns
142translateNamespace (MN _ _) = [idrNamespace]
142translateNamespace (MN _ _) = [idrNamespace]
144translateName :: Name -> String
144translateName :: Name -> String