diff --git a/collects/tests/typed-scheme/optimizer/transform.rkt b/collects/tests/typed-scheme/optimizer/transform.rkt
index ab89237f2e..4e0b810161 100644
--- a/collects/tests/typed-scheme/optimizer/transform.rkt
+++ b/collects/tests/typed-scheme/optimizer/transform.rkt
@@ -26,8 +26,8 @@
 
 ;; proc returns the list of tests to be run on each file
 (define (transform-dir dir)
-  (for/list ([name (directory-list dir)]
-             #:when (test-file? name))
+  (for ([name (directory-list dir)]
+        #:when (test-file? name))
     (transform name dir)))
 
 (cond [(= (vector-length (current-command-line-arguments)) 0)