* swapped the message and the procedure for time-it.

src/ikarus.timer.ss

@@ -70,8 +70,8 @@
   (define time-it
     (case-lambda
       [(proc) 
-       (time-it proc #f)]
+       (time-it #f proc)]
-      [(proc message)
+      [(message proc)
        (unless (procedure? proc)
          (error 'time-it "~s is not a procedure" proc))
        (let* ([t0 (mk-stats)]

src/makefile.ss

@@ -685,12 +685,11 @@
 
   (verify-map)
   
-  (time-it
+  (time-it "the entire bootstrap process"
     (lambda ()
       (let-values ([(core* locs) 
-                    (time-it 
+                    (time-it "macro expansion"
-                      (lambda () (expand-all scheme-library-files))
+                      (lambda () (expand-all scheme-library-files)))])
-                      "macro expansion")])
         (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)))))
+            (close-output-port p))))))
-    "the entire bootstrap process")
 
   (printf "Happy Happy Joy Joy\n"))