diff --git a/collects/tests/mzscheme/benchmarks/common/README.txt b/collects/tests/mzscheme/benchmarks/common/README.txt
index ffdf3bb3e2..90cc1e00f2 100644
--- a/collects/tests/mzscheme/benchmarks/common/README.txt
+++ b/collects/tests/mzscheme/benchmarks/common/README.txt
@@ -5,8 +5,9 @@ Bechmarks obtained from
 Files that end in ".sch" are supposed to be standard Scheme plus `time'.
 Files that end in ".ss" are MzScheme wrapper modules.
 
-To build <benchmark>.sch with Gambit or Bigloo:
+To build <benchmark>.sch with Gambit, Bigloo, or Chicken:
   mzscheme -qr mk-gambit.ss <banchmark>
   mzscheme -qr mk-bigloo.ss <banchmark>
+  mzscheme -qr mk-chicken.ss <banchmark>
 
 Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark.
diff --git a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
index f933526ea1..0105f925d0 100644
--- a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
+++ b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
@@ -11,7 +11,7 @@
     (newline))
   'truncate/replace)
 
-(when (system (format "bigloo -o ~a -Obench ~a.scm"
+(when (system (format "bigloo -o ~a -O6 ~a.scm"
                       name name))
   (delete-file (format "~a.scm" name))
   (delete-file (format "~a.o" name)))
diff --git a/collects/tests/mzscheme/benchmarks/common/mk-chicken.ss b/collects/tests/mzscheme/benchmarks/common/mk-chicken.ss
new file mode 100644
index 0000000000..91bbaea996
--- /dev/null
+++ b/collects/tests/mzscheme/benchmarks/common/mk-chicken.ss
@@ -0,0 +1,6 @@
+(require (lib "process.ss"))
+
+(define name (vector-ref (current-command-line-arguments) 0))
+
+(system (format "csc -no-trace -no-lambda-info -optimize-level 3 -block -lambda-lift ~a.sch" 
+                name))
diff --git a/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
index 1e1defb595..eb0628963b 100644
--- a/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
+++ b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
@@ -3,7 +3,7 @@
 
 (define name (vector-ref (current-command-line-arguments) 0))
 
-(when (system (format "gsc -prelude '(include \"gambit-relude.ss\")' ~a.sch"
+(when (system (format "gsc -prelude '(include \"gambit-prelude.ss\")' ~a.sch"
                name))
  (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc"
                 name name name))