diff --git a/core/dlists/dlists-tests.factor b/core/dlists/dlists-tests.factor
index ff015bf95b..119a0acadb 100755
--- a/core/dlists/dlists-tests.factor
+++ b/core/dlists/dlists-tests.factor
@@ -71,3 +71,9 @@ IN: dlists.tests
 [ <dlist> peek-back ] [ empty-dlist? ] must-fail-with
 [ <dlist> pop-front ] [ empty-dlist? ] must-fail-with
 [ <dlist> pop-back ] [ empty-dlist? ] must-fail-with
+
+[ t ] [ <dlist> 3 over push-front 4 over push-back 3 swap dequeue-member? ] unit-test
+
+[ f ] [ <dlist> 3 over push-front 4 over push-back -1 swap dequeue-member? ] unit-test
+
+[ f ] [ <dlist> 0 swap dequeue-member? ] unit-test
diff --git a/core/dlists/dlists.factor b/core/dlists/dlists.factor
index 370ec4042f..d996e3dcf9 100755
--- a/core/dlists/dlists.factor
+++ b/core/dlists/dlists.factor
@@ -122,7 +122,7 @@ M: dlist pop-back* ( dlist -- )
     dlist-find nip ; inline
 
 M: dlist dequeue-member? ( value dlist -- ? )
-    [ = ] curry dlist-contains? ;
+    [ = ] with dlist-contains? ;
 
 M: dlist delete-node ( dlist-node dlist -- )
     {