diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 50ee849f..92dfa86c 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -4,6 +4,16 @@
 ;;> Simple testing framework adapted from the Chicken @scheme{test}
 ;;> module.
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; list utilities
+
+;; Simplified version of SRFI-1 every.
+(define (every pred ls)
+  (or (null? ls)
+      (if (null? (cdr ls))
+          (pred (car ls))
+          (if (pred (car ls)) (every1 pred (cdr ls)) #f))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; exception utilities
 
diff --git a/lib/chibi/test.sld b/lib/chibi/test.sld
index e72bffc4..dc95cdbe 100644
--- a/lib/chibi/test.sld
+++ b/lib/chibi/test.sld
@@ -13,8 +13,7 @@
           (scheme write)
           (scheme complex)
           (scheme process-context)
-          (scheme time)
-          (only (srfi 1) every))
+          (scheme time))
   (cond-expand
    (chibi
     (import (only (chibi) pair-source print-exception)))