diff --git a/collects/typed-scheme/typed-scheme.ss b/collects/typed-scheme/typed-scheme.ss
index 853e6b80..522f11fc 100644
--- a/collects/typed-scheme/typed-scheme.ss
+++ b/collects/typed-scheme/typed-scheme.ss
@@ -40,7 +40,7 @@
   (define module-name (syntax-property stx 'enclosing-module-name))
   ;(printf "BEGIN: ~a~n" (syntax->datum stx))
   (with-logging-to-file 
-   (build-path (find-system-path 'tempdir) "ts-poly.log")
+   (build-path (find-system-path 'temp-dir) "ts-poly.log")
    #;
    (log-file-name (syntax-source stx) module-name)
    (syntax-case stx ()