diff --git a/fco2/Parse.hs b/fco2/Parse.hs
index a3b727b..1fac3e3 100644
--- a/fco2/Parse.hs
+++ b/fco2/Parse.hs
@@ -725,7 +725,7 @@ makeLiteral (A.Literal m t lr) wantT
           when (not typesOK) $
             dieP m $ "default type of literal (" ++ show t ++ ") cannot be coerced to desired type (" ++ show wantT ++ ")"
 
-          case trace ("** makeLiteral " ++ show wantT ++ ", " ++ show t) (underT, lr) of
+          case (underT, lr) of
             -- An array literal.
             (A.Array _ _, A.ArrayLiteral ml aes) ->
               do elemT <- trivialSubscriptType underT