diff --git a/collects/srfi/69/hash.ss b/collects/srfi/69/hash.ss
index bfa08a3e3e..c135f9beed 100644
--- a/collects/srfi/69/hash.ss
+++ b/collects/srfi/69/hash.ss
@@ -5,7 +5,8 @@
 
 (module hash mzscheme
   
-  (require mzlib/etc)
+  (require mzlib/etc
+           scheme/mpair)
   
   (provide (rename my-make-hash-table s:make-hash-table)
            (rename my-hash-table? s:hash-table?)
@@ -92,7 +93,7 @@
   
   (define (%hash-table-walk proc entries)
     (do ((index (- (vector-length entries) 1) (- index 1)))
-      ((< index 0)) (for-each proc (vector-ref entries index))))
+      ((< index 0)) (mfor-each proc (vector-ref entries index))))
   
   (define (%hash-table-maybe-resize! hash-table)
     (let* ((old-entries (my-hash-table-entries hash-table))
diff --git a/collects/tests/srfi/load-srfis.ss b/collects/tests/srfi/load-srfis.ss
index 2422787b07..cf92f1df79 100644
--- a/collects/tests/srfi/load-srfis.ss
+++ b/collects/tests/srfi/load-srfis.ss
@@ -35,7 +35,6 @@
 (require srfi/61)
 (require srfi/63)
 (require srfi/64)
-(require srfi/66)
 (require srfi/67)
 (require srfi/69)
 (require srfi/71)
@@ -73,7 +72,6 @@
 (require srfi/61/cond)
 (require srfi/63/63)
 (require srfi/64/testing)
-(require srfi/66/66)
 (require srfi/67/compare)
 (require srfi/69/hash)
 (require srfi/71/letvalues)