diff --git a/collects/framework/test.ss b/collects/framework/test.ss
new file mode 100644
index 00000000..c8f43986
--- /dev/null
+++ b/collects/framework/test.ss
@@ -0,0 +1,20 @@
+(printf "1~n")
+(read-case-sensitive #t)
+(compile-allow-cond-fallthrough #t)
+(compile-allow-set!-undefined #t)
+(begin
+  (require-library "launcher.ss" "launcher")
+  (make-mred-launcher (list "-mvL" "test.ss" "framework")
+		      (mred-program-launcher-path "Test Framework")))
+
+(printf "2~n")
+(require-library "loader.ss" "system")
+(printf "3~n")
+;(require-library "gen-mred-interfaces.ss" "framework")
+(printf "4~n")
+(require-library "mred-interfaces.ss" "framework")
+(printf "5~n")
+(require-library "sig.ss" "framework")
+(printf "6~n")
+(require-library "frameworkr.ss" "framework")
+(printf "7~n")