1 files changed, 1 insertions, 1 deletions
diff --git a/srfi-1.scm b/srfi-1.scm
index 98294b0..405f5a4 100644
--- a/srfi-1.scm
+++ b/srfi-1.scm
@@ -497,7 +497,7 @@
   (or (null? l)
       (letrec ((subset? (lambda (l1 l2)
 			  (or (eq? l1 l2)
-			      (every (lambda (x) (member x l2)) l1)))))
+			      (every (lambda (x) (member x l2 =?)) l1)))))
 	(let loop ((l1 (car l)) (l (cdr l)))
 	  (or (null? l)
 	      (let ((l2 (car l)))