diff --git a/collects/tests/mzscheme/benchmarks/common/auto.ss b/collects/tests/mzscheme/benchmarks/common/auto.ss
index f658c3d64d..f8f8de6ea7 100755
--- a/collects/tests/mzscheme/benchmarks/common/auto.ss
+++ b/collects/tests/mzscheme/benchmarks/common/auto.ss
@@ -178,7 +178,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
                 run-exe/time
                 extract-time-times
                 clean-up-bin
-                '(ctak maze puzzle triangle))
+                '(cpstack maze puzzle triangle))
      (make-impl 'gambit
                 (run-mk "mk-gambit.ss")
                 run-gambit-exe
diff --git a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
index 51a63d4577..b097151c6a 100644
--- a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
+++ b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
@@ -11,7 +11,12 @@
     (newline))
   'truncate/replace)
 
-(when (system (format "bigloo -w -o ~a -copt -O3 -copt -fomit-frame-pointer -O6 ~a.scm"
-                      name name))
+(when (system (format "bigloo -w -o ~a -copt -O3 -copt -fomit-frame-pointer -O6 ~a~a.scm"
+                      name 
+                      (if (memq (string->symbol name)
+                                '(ctak))
+                          "-call/cc "
+                          "")
+                      name))
   (delete-file (format "~a.scm" name))
   (delete-file (format "~a.o" name)))
diff --git a/collects/tests/mzscheme/benchmarks/common/tabulate.ss b/collects/tests/mzscheme/benchmarks/common/tabulate.ss
index 61fc586659..ec58024cf1 100755
--- a/collects/tests/mzscheme/benchmarks/common/tabulate.ss
+++ b/collects/tests/mzscheme/benchmarks/common/tabulate.ss
@@ -172,9 +172,12 @@ exec mzscheme -qu "$0" ${1+"$@"}
                                              nbsp)
                                          (td ((bgcolor ,(lookup-color impl)))
                                              ,(if (and n base)
-                                                  (if (= n base)
-                                                      '(font ((color "forestgreen")) (b "1"))
-                                                      (ratio->string (/ n base)))
+                                                  (let ([s (if (= n base)
+                                                               "1"
+                                                               (ratio->string (/ n base)))])
+                                                    (if (= n fastest)
+                                                        `(font ((color "forestgreen")) (b ,s))
+                                                        s))
                                                   "-")
                                              nbsp))))
                                    sorted-impls))))))