--- gforth/history.fs	1998/10/14 22:23:12	1.17
+++ gforth/history.fs	1999/12/12 12:49:51	1.18
@@ -65,7 +65,7 @@ interpret/compile: ctrl  ( "<char>" -- c
 : force-open ( addr len -- fid )
   2dup r/w open-file 0<
   IF  drop r/w create-file
-      throw  ELSE  nip nip  THEN ;
+      throw ELSE  nip nip  THEN ;
 
 s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN] 
 [IF]