diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 036c7d9721..b3bd3cacdb 100644
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -49,7 +49,7 @@ M: lexer skip-word ( lexer -- )
     ] change-lexer-column ;
 
 : still-parsing? ( lexer -- ? )
-    [ line>> ] [ text>> ] bi length <= ;
+    [ line>> ] [ text>> length ] bi <= ;
 
 : still-parsing-line? ( lexer -- ? )
     [ column>> ] [ line-length>> ] bi < ;