diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index f9554fa9bb..7939a49d7a 100644
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -104,7 +104,7 @@ PREDICATE: unexpected-eof < unexpected got>> not ;
     } cond ; inline recursive
 
 : map-tokens ( ... end quot: ( ... token -- ... elt ) -- ... seq )
-    collector [ each-token ] dip ; inline
+    collector [ each-token ] dip { } like ; inline
 
 : parse-tokens ( end -- seq )
     [ ] map-tokens ;