diff --git a/stand/forth/support.4th b/stand/forth/support.4th
--- a/stand/forth/support.4th
+++ b/stand/forth/support.4th
@@ -486,6 +486,7 @@
 
 : reset_line_reading
   0 to read_buffer_ptr
+  0 read_buffer .len !
 ;
 
 : read_line