diff --git a/collects/tests/srfi/load-srfis.ss b/collects/tests/srfi/load-srfis.ss
new file mode 100644
index 0000000000..6a6fceed08
--- /dev/null
+++ b/collects/tests/srfi/load-srfis.ss
@@ -0,0 +1,60 @@
+;;; This file simply tests that all the SRFIs load.  Just
+;;; load it into MzScheme to perform this test.  Remember it
+;;; might not be up-to-date, so check before you run it!
+
+
+(require (lib "1.ss" "srfi"))
+(require (lib "2.ss" "srfi"))
+(require (lib "4.ss" "srfi"))
+(require (lib "5.ss" "srfi"))
+(require (lib "7.ss" "srfi"))
+(require (lib "8.ss" "srfi"))
+(require (lib "9.ss" "srfi"))
+(require (lib "13.ss" "srfi"))
+(require (lib "14.ss" "srfi"))
+(require (lib "17.ss" "srfi"))
+(require (lib "19.ss" "srfi"))
+(require (lib "25.ss" "srfi"))
+(require (lib "26.ss" "srfi"))
+(require (lib "27.ss" "srfi"))
+(require (lib "29.ss" "srfi"))
+(require (lib "31.ss" "srfi"))
+(require (lib "34.ss" "srfi"))
+(require (lib "40.ss" "srfi"))
+(require (lib "42.ss" "srfi"))
+(require (lib "43.ss" "srfi"))
+(require (lib "45.ss" "srfi"))
+(require (lib "48.ss" "srfi"))
+(require (lib "57.ss" "srfi"))
+(require (lib "59.ss" "srfi"))
+(require (lib "60.ss" "srfi"))
+(require (lib "67.ss" "srfi"))
+(require (lib "69.ss" "srfi"))
+
+(require (lib "list.ss" "srfi" "1"))
+(require (lib "time.ss" "srfi" "19"))
+(require (lib "and-let.ss" "srfi" "2"))
+(require (lib "let.ss" "srfi" "5"))
+(require (lib "program.ss" "srfi" "7"))
+(require (lib "receive.ss" "srfi" "8"))
+(require (lib "record.ss" "srfi" "9"))
+(require (lib "string.ss" "srfi" "13"))
+(require (lib "char-set.ss" "srfi" "14"))
+(require (lib "set.ss" "srfi" "17"))
+(require (lib "time.ss" "srfi" "19"))
+(require (lib "array.ss" "srfi" "25"))
+(require (lib "cut.ss" "srfi" "26"))
+(require (lib "random-bits.ss" "srfi" "27"))
+(require (lib "localization.ss" "srfi" "29"))
+(require (lib "rec.ss" "srfi" "31"))
+(require (lib "exception.ss" "srfi" "34"))
+(require (lib "stream.ss" "srfi" "40"))
+(require (lib "comprehensions.ss" "srfi" "42"))
+(require (lib "vector-lib.ss" "srfi" "43"))
+(require (lib "lazy.ss" "srfi" "45"))
+(require (lib "format.ss" "srfi" "48"))
+(require (lib "records.ss" "srfi" "57"))
+(require (lib "vicinity.ss" "srfi" "59"))
+(require (lib "60.ss" "srfi" "60"))
+(require (lib "compare.ss" "srfi" "67"))
+(require (lib "hash.ss" "srfi" "69"))