diff --git a/src/ikarus.boot b/src/ikarus.boot
index da29fd0..31c496f 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.timer.ss b/src/ikarus.timer.ss
index 97a8f45..f0157df 100644
--- a/src/ikarus.timer.ss
+++ b/src/ikarus.timer.ss
@@ -70,8 +70,8 @@
   (define time-it
     (case-lambda
       [(proc) 
-       (time-it proc #f)]
-      [(proc message)
+       (time-it #f proc)]
+      [(message proc)
        (unless (procedure? proc)
          (error 'time-it "~s is not a procedure" proc))
        (let* ([t0 (mk-stats)]
diff --git a/src/makefile.ss b/src/makefile.ss
index 5eb8c97..7b0740c 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -685,12 +685,11 @@
 
   (verify-map)
   
-  (time-it
+  (time-it "the entire bootstrap process"
     (lambda ()
       (let-values ([(core* locs) 
-                    (time-it 
-                      (lambda () (expand-all scheme-library-files))
-                      "macro expansion")])
+                    (time-it "macro expansion"
+                      (lambda () (expand-all scheme-library-files)))])
         (parameterize ([current-primitive-locations
                         (lambda (x)
                           (cond
@@ -701,8 +700,7 @@
             (for-each 
               (lambda (x) (compile-core-expr-to-port x p))
               core*)
-            (close-output-port p)))))
-    "the entire bootstrap process")
+            (close-output-port p))))))
 
   (printf "Happy Happy Joy Joy\n"))