--- gforth/history.fs	2000/04/02 20:18:27	1.20
+++ gforth/history.fs	2000/04/12 20:53:46	1.21
@@ -230,7 +230,8 @@ Create prefix-found  0 , 0 ,
     ['] force-open catch
     ?dup-if
 	\ !! >stderr
-	history-file type ." : " .error cr 2drop
+        \ history-file type ." : " .error cr
+	drop 2drop
 	['] false ['] false ['] (ret)
     else
 	to history