From e8856bc74c2573ed1f4bb4f31c1c9ba4878f6ab0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 8 Feb 1999 01:49:23 +0000
Subject: [PATCH] .

original commit: d44ad9eaa256c21f280337da78c13be6707d5ff8
---
 collects/mzlib/functior.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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*