diff --git a/stand/forth/support.4th b/stand/forth/support.4th
index d87cf16a16d..ec04b7e9e32 100644
--- a/stand/forth/support.4th
+++ b/stand/forth/support.4th
@@ -485,7 +485,7 @@ variable fd
 get-current ( -- wid ) previous definitions >search ( wid -- )
 
 : reset_line_reading
-  0 to read_buffer_ptr
+  0 read_buffer .len !
 ;
 
 : read_line