diff --git a/collects/typed-scheme/private/optimize.rkt b/collects/typed-scheme/private/optimize.rkt
index 5d466deb86..c415b1b400 100644
--- a/collects/typed-scheme/private/optimize.rkt
+++ b/collects/typed-scheme/private/optimize.rkt
@@ -63,8 +63,9 @@
 (define *optimization-log-file* "opt-log")
 (define (log-optimization kind stx)
   (if *log-optimizations?*
-      (printf "~a line ~a col ~a - ~a\n"
+      (printf "~a line ~a col ~a - ~a - ~a\n"
               (syntax-source stx) (syntax-line stx) (syntax-column stx)
+              (syntax->datum stx)
               kind)
       #t))