--- src/sys/boot/ficl/softwords/fileaccess.fr	2003/11/10 06:08:34	1.1
+++ src/sys/boot/ficl/softwords/fileaccess.fr	2008/03/29 23:31:07	1.2
@@ -4,7 +4,7 @@
 \ ** submitted by Larry Hastings, larry@hastings.org
 \ **
 \
-\ $FreeBSD: src/sys/boot/ficl/softwords/fileaccess.fr,v 1.1 2002/04/09 17:45:27 dcs Exp $
+\ $FreeBSD: src/sys/boot/ficl/softwords/fileaccess.fr,v 1.2 2007/03/23 22:26:01 jkim Exp $
 \ $DragonFly$
 
 : r/o 1 ;
@@ -16,12 +16,11 @@ : included
     r/o bin open-file 0= if
         locals| f | end-locals
         f include-file
-        f close-file drop
     else
         drop
     endif
     ;
 
-: include parse-word included ; immediate
+: include parse-word included ;
 
 \ #endif