diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index c385b57973..8e2df72c18 100644
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -49,7 +49,7 @@ M: dlist equal?
         [ front>> ] bi@
         [ 2dup dlist-nodes= ]
         [ [ next>> ] bi@ ] while 
-        2array { f f } =
+        2array or not
     ] [
         2drop f
     ] if ;