diff --git a/stand/forth/support.4th b/stand/forth/support.4th
index ec04b7e9e32..d87cf16a16d 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 read_buffer .len !
+  0 to read_buffer_ptr
 ;
 
 : read_line