diff --git a/collects/tests/typed-scheme/optimizer/tests/silent-dead-branch.rkt b/collects/tests/typed-scheme/optimizer/tests/silent-dead-branch.rkt
index 3163a07b..5124650d 100644
--- a/collects/tests/typed-scheme/optimizer/tests/silent-dead-branch.rkt
+++ b/collects/tests/typed-scheme/optimizer/tests/silent-dead-branch.rkt
@@ -1,6 +1,6 @@
 #;
 (
-TR opt: silent-dead-branch.rkt 12:0 (when (number? 1) 1) -- dead then branch
+TR opt: silent-dead-branch.rkt 12:0 (when (number? "1") 1) -- dead then branch
 )
 
 #lang typed/racket
diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt
index b51dc215..f460706b 100644
--- a/collects/typed-scheme/optimizer/logging.rkt
+++ b/collects/typed-scheme/optimizer/logging.rkt
@@ -30,7 +30,7 @@
 
 (define (gen-log-message msg stx from)
   (let ([stx (locate-stx stx)])
-    (format "~a: ~a ~a ~a -- ~a"
+    (format "~a: ~a ~a ~s -- ~a"
             from
             (syntax-source-file-name stx)
             (line+col->string stx)