diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 92dfa86c..5dd5cd22 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -12,7 +12,7 @@
   (or (null? ls)
       (if (null? (cdr ls))
           (pred (car ls))
-          (if (pred (car ls)) (every1 pred (cdr ls)) #f))))
+          (if (pred (car ls)) (every pred (cdr ls)) #f))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; exception utilities