diff --git a/collects/tests/mzscheme/trace.ss b/collects/tests/mzscheme/trace.ss
index 6ca5b5d2d1..4a93226ac9 100644
--- a/collects/tests/mzscheme/trace.ss
+++ b/collects/tests/mzscheme/trace.ss
@@ -5,19 +5,19 @@
 (require scheme/trace)
 
 (define-syntax-rule (trace-output expr ...)
-                    (let ([out (list)])
-                      (parameterize ([current-trace-notify (lambda (e)
-                                                             (set! out (cons e out)))])
-                                    expr ...
-                                    (reverse out))))
+  (let ([out '()])
+    (parameterize ([current-trace-notify
+                    (lambda (e) (set! out (cons e out)))])
+      expr ...
+      (reverse out))))
 
-(let ([n1 (let ([out (list)])
-            (parameterize ([current-trace-notify (lambda (e)
-                                                   (set! out (cons e out)))])
-                          (define (foo x) x)
-                          (trace foo)
-                          (foo 2)
-                          out))])
+(let ([n1 (let ([out '()])
+            (parameterize ([current-trace-notify
+                            (lambda (e) (set! out (cons e out)))])
+              (define (foo x) x)
+              (trace foo)
+              (foo 2)
+              out))])
   (test (reverse n1) 'test-it (list ">(foo 2)" "<2")))
 
 (test (trace-output