--- gforth/history.fs	2004/12/26 20:32:02	1.34
+++ gforth/history.fs	2004/12/31 13:23:57	1.37
@@ -1,6 +1,6 @@
 \ command line edit and history support                 16oct94py
 
-\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,2000,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -185,13 +185,15 @@ Create prefix-found  0 , 0 ,
     REPEAT
     drop r> ;
 
+: prefix-off ( -- )  0 0 prefix-found 2! ;
+
 : prefix-string ( addr len nfa -- addr' len' )
     dup prefix-found !  ?dup
     IF
 	name>string rot /string rot drop
 	dup 1+ prefix-found cell+ !
     ELSE
-	2drop s" " prefix-found cell+ off
+	2drop s" " prefix-off
     THEN ;
 
 : search-prefix  ( addr1 len1 -- addr2 len2 )
@@ -216,7 +218,7 @@ Create prefix-found  0 , 0 ,
     prefix-found @ IF  bl (ins)  THEN  0 ;
 
 : kill-prefix  ( key -- key )
-  dup #tab <> IF  0 0 prefix-found 2!  THEN ;
+  dup #tab <> IF  prefix-off  THEN ;
 
 [IFUNDEF] everyline defer everyline [THEN]