diff --git a/collects/typed-scheme/optimizer/utils.rkt b/collects/typed-scheme/optimizer/utils.rkt
index bea4208e..d36b92e2 100644
--- a/collects/typed-scheme/optimizer/utils.rkt
+++ b/collects/typed-scheme/optimizer/utils.rkt
@@ -23,7 +23,8 @@
 (define (log-optimization kind stx)
   (if *log-optimizations?*
       (printf "~a line ~a col ~a - ~a - ~a\n"
-              (syntax-source stx) (syntax-line stx) (syntax-column stx)
+              (syntax-source-file-name stx)
+              (syntax-line stx) (syntax-column stx)
               (syntax->datum stx)
               kind)
       #t))