diff --git a/collects/tests/mzscheme/benchmarks/common/bigloo-prelude.sch b/collects/tests/mzscheme/benchmarks/common/bigloo-prelude.sch
new file mode 100644
index 0000000000..c0bc43003d
--- /dev/null
+++ b/collects/tests/mzscheme/benchmarks/common/bigloo-prelude.sch
@@ -0,0 +1,9 @@
+(define-macro (time expr)
+  `(time-it (lambda () ,expr)))
+
+(define (time-it thunk)
+  (thunk))
+
+(define (error . x) #f)
+
+
diff --git a/collects/tests/mzscheme/benchmarks/common/gambit-prelude.ss b/collects/tests/mzscheme/benchmarks/common/gambit-prelude.ss
new file mode 100644
index 0000000000..cb6f220a8f
--- /dev/null
+++ b/collects/tests/mzscheme/benchmarks/common/gambit-prelude.ss
@@ -0,0 +1,7 @@
+(declare
+  (block)
+  (standard-bindings)
+  (extended-bindings)
+  (safe)
+  (interrupts-enabled)
+)
\ No newline at end of file
diff --git a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
new file mode 100644
index 0000000000..f933526ea1
--- /dev/null
+++ b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss
@@ -0,0 +1,17 @@
+
+(require (lib "process.ss"))
+
+(define name (vector-ref (current-command-line-arguments) 0))
+
+(with-output-to-file (format "~a.scm" name)
+  (lambda ()
+    (write `(module fft
+              (include "bigloo-prelude.sch")
+              (include ,(format "~a.sch" name))))
+    (newline))
+  'truncate/replace)
+
+(when (system (format "bigloo -o ~a -Obench ~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-gambit.ss b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
new file mode 100644
index 0000000000..1e1defb595
--- /dev/null
+++ b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
@@ -0,0 +1,11 @@
+
+(require (lib "process.ss"))
+
+(define name (vector-ref (current-command-line-arguments) 0))
+
+(when (system (format "gsc -prelude '(include \"gambit-relude.ss\")' ~a.sch"
+               name))
+ (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc"
+                name name name))
+  (delete-file (format "~a.c" name))  
+  (delete-file (format "~a_.c" name))))