diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 98a1277ac7..8f373640d3 100644
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -10,8 +10,8 @@ TUPLE: lexer text line line-text line-length column parsing-words ;
 TUPLE: lexer-parsing-word word line line-text column ;
 
 : next-line ( lexer -- )
-    dup [ line>> ] [ text>> ] bi ?nth >>line-text
-    dup line-text>> length >>line-length
+    dup [ line>> ] [ text>> ] bi ?nth
+    [ >>line-text ] [ length >>line-length ] bi
     [ 1 + ] change-line
     0 >>column
     drop ;