diff --git a/src/compiler/GF/Command/Commands2.hs b/src/compiler/GF/Command/Commands2.hs
index 995d2d560..0cc5d7d23 100644
--- a/src/compiler/GF/Command/Commands2.hs
+++ b/src/compiler/GF/Command/Commands2.hs
@@ -612,7 +612,7 @@ pgfCommands = Map.fromList [
                                                Nothing -> let funs = functionsByCat pgf id
                                                           in showCat id funs))
                                   where
-                                    showCat c funs = "cat "++showCategory pgf c++
+                                    showCat c funs = "cat "++c++
                                                      " ;\n\n"++
                                                      unlines [showFun f ty| f<-funs,
                                                                             Just ty <- [functionType pgf f]]