diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index d68b03812..94b2955cb 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -1037,7 +1037,7 @@ allOperDependencies m b =
 
 topoSortOpers :: [(Ident,[Ident])] -> Err [Ident]
 topoSortOpers st = do
-  let eops = topoTest (trace (show st) st)
+  let eops = topoTest st
   either 
     return 
     (\ops -> Bad ("circular definitions:" +++ unwords (map prt (head ops))))