diff --git a/src/GF/Conversion/GFCtoSimple.hs b/src/GF/Conversion/GFCtoSimple.hs
index 07a1da9e2..c6c7a2125 100644
--- a/src/GF/Conversion/GFCtoSimple.hs
+++ b/src/GF/Conversion/GFCtoSimple.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/23 14:32:44 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.12 $
+-- > CVS $Date: 2005/08/08 08:09:49 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.13 $
 --
 -- Converting GFC to SimpleGFC
 --
@@ -94,9 +94,9 @@ convertConcrete gram (Abs decl args name) = Cnc ltyp largs term
 	  ltyp : largs = map (convertCType gram . lookupCType gram) (decl : args)
 
 expandTerm :: Env -> A.Term -> A.Term
-expandTerm gram term = tracePrt "expanded term" prt $
+expandTerm gram term = -- tracePrt "expanded term" prt $
 		       err error id $ expandLinTables (fst gram) $
-		       tracePrt "initial term" prt $ 
+		       -- tracePrt "initial term" prt $ 
 		       term
 
 convertCType :: Env -> A.CType -> SLinType