diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index 423d71c..ce03316 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -89,7 +89,7 @@
        [(l r equal?)
 	(if (null? l)
 	    r
-	    (remove* (cdr l) (remove (car l) r equal?)))]
+	    (remove* (cdr l) (remove (car l) r equal?) equal?))]
        [(l r) (remove* l r equal?)])))
      
    (define remq*