--- gforth/history.fs	1994/11/15 15:55:37	1.4
+++ gforth/history.fs	1995/04/30 23:18:21	1.5
@@ -7,16 +7,17 @@
 2Variable end^
 
 : get-history ( addr len -- wid )
+  check-file-prefix drop
   2dup r/w open-file 0<
   IF  drop r/w create-file throw  ELSE  nip nip  THEN
   to history
   history file-size throw
   2dup forward^ 2! 2dup backward^ 2! end^ 2! ;
 
-s" gforth.history" get-history
+s" ~/gforth.history" get-history
 
 : history-cold  Defers 'cold
-  s" gforth.history" get-history ;
+  s" ~/gforth.history" get-history ;
 
 ' history-cold IS 'cold