diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 498e6a69d..ae9160c80 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -737,7 +737,7 @@
   (let lp ((l rest) (acc list))
     (if (null? l)
       acc
-      (if (member (car l) acc)
+      (if (member (car l) list (lambda (x y) (= y x)))
 	(lp (cdr l) acc)
 	(lp (cdr l) (cons (car l) acc))))))