diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index 76ff093f3..1b3159cd1 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -589,8 +589,8 @@ inferLType gr trm = case trm of
        _ -> raise $ "no overload instance of" +++ prt f +++ 
          "for" +++ unwords (map prtType tys) +++ "among" ++++ 
          unlines [unwords (map prtType ty) | (ty,_) <- typs]
-        ++++ "DEBUG" +++ unwords (map show tys) +++ ";" 
-        ++++ unlines (map (show . fst) typs) ----
+      ----  ++++ "DEBUG" +++ unwords (map show tys) +++ ";" 
+      ----  ++++ unlines (map (show . fst) typs) ----
 
    lookupOverloadInstance tys typs = lookup tys typs ---- use Map