diff --git a/collects/mzlib/traceld.ss b/collects/mzlib/traceld.ss
index 4e89a92..b627ee7 100644
--- a/collects/mzlib/traceld.ss
+++ b/collects/mzlib/traceld.ss
@@ -25,16 +25,15 @@
 					     "~astarting ~a at ~a~n" tab sym
 					     (current-process-milliseconds))
 				    (let ([s tab])
-				      (dynamic-wind
-				       (lambda () (set! tab (string-append " " tab)))
-				       (lambda ()
-					 (begin0
-					  (loader)
-					  (fprintf (current-error-port)
-						   "~adone ~a at ~a~n"
-						   tab sym
-						   (current-process-milliseconds))))
-				       (lambda () (set! tab s)))))))))
+				      (begin0
+				       (dynamic-wind
+					(lambda () (set! tab (string-append " " tab)))
+					(lambda () (loader))
+					(lambda () (set! tab s)))
+				       (fprintf (current-error-port)
+						"~adone ~a at ~a~n"
+						tab sym
+						(current-process-milliseconds)))))))))
 		       (load filename)))
 		 (lambda () (set! tab s))))
 	      (fprintf (current-error-port)