From 6e2786758e9c7581daa75aa28ea5328fcbd1765f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Tue, 29 Jul 2008 17:10:01 +0000
Subject: [PATCH] Yes, we need the hyphen.

svn: r10968

original commit: 402de6f0903d05b7651204c8595a60972f9b2337
---
 collects/typed-scheme/typed-scheme.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ()