diff --git a/collects/typed-racket/tc-setup.rkt b/collects/typed-racket/tc-setup.rkt
index fce91f20..5606e66b 100644
--- a/collects/typed-racket/tc-setup.rkt
+++ b/collects/typed-racket/tc-setup.rkt
@@ -58,9 +58,9 @@
                                                (cons (syntax-e id) ty)))))]
                      ;; reinitialize disappeared uses
                      [disappeared-use-todo      null]
-                     [disappeared-bindings-todo null])        
+                     [disappeared-bindings-todo null])
         (define fully-expanded-stx (disarm* (local-expand stx expand-ctxt (list #'module*))))
-        (when #t
+        (when (show-input?)
           (pretty-print (syntax->datum fully-expanded-stx)))
         (do-time "Local Expand Done")
         (init)