diff --git a/core/words/words.factor b/core/words/words.factor
index 138b1ef928..b640cc6384 100755
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -136,9 +136,9 @@ SYMBOL: visited
         [ reset-on-redefine reset-props ]
         [ dup visited get set-at ]
         [
-            crossref get at keys [ word? ] filter [
-                reset-on-redefine [ word-prop ] with contains?
-            ] filter
+            crossref get at keys
+            [ word? ] filter
+            [ reset-on-redefine [ word-prop ] with contains? ] filter
             [ (redefined) ] each
         ] tri
     ] if ;