diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 77bb958e82..2406f21345 100644
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -38,7 +38,7 @@ TUPLE: directory-iterator path bfs queue ;
     dup queue>> deque-empty? [ drop f ] [
         dup queue>> pop-back
         dup directory?
-        [ name>> over push-directory-entries next-directory-entry ]
+        [ [ name>> swap push-directory-entries ] keep ]
         [ nip ] if
     ] if ;