diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt
index 0a2f92df..5ebdb63d 100644
--- a/collects/typed-scheme/optimizer/logging.rkt
+++ b/collects/typed-scheme/optimizer/logging.rkt
@@ -31,8 +31,7 @@
 
 
 (define (log-optimization kind msg stx)
-  (let* ([stx (locate-stx stx)]
-         [new-entry (opt-log-entry kind msg stx (syntax-position stx))])
+  (let ([new-entry (opt-log-entry kind msg stx (syntax-position stx))])
     (set! log-so-far (cons new-entry log-so-far))))
 
 ;;--------------------------------------------------------------------
@@ -92,8 +91,7 @@
 ;; Attempts to merge the incoming missed optimization with existing ones.
 ;; Otherwise, adds the new one to the log.
 (define (log-missed-optimization kind msg stx [irritants '()])
-  (let* ([stx (locate-stx stx)]
-         ;; for convenience, if a single irritant is given, wrap it in a list
+  (let* (;; for convenience, if a single irritant is given, wrap it in a list
          ;; implicitly
          [irritants (if (list? irritants) irritants (list irritants))]
          [new
@@ -186,7 +184,7 @@
 ;; For command-line printing purposes.
 ;; Not as user friendly as what's produced by the DrRacket tool.
 (define (format-log-entry entry)
-  (define stx (log-entry-stx entry))
+  (define stx (locate-stx (log-entry-stx entry)))
   (define msg
     (format "~a ~a ~s -- ~a"
             (syntax-source-file-name stx)