X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/336369a5b94ae6588fb891606d37053f9fb8c2d6..90975d261c7ab39186c75d8700261faab3427de7:/csrc/pf_inner.c

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index 59ddfff..0149da0 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -1289,9 +1289,8 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
 			if( FileID )
 			{
 				SAVE_REGISTERS;
-				Scratch = ffIncludeFile( FileID );
+				Scratch = ffIncludeFile( FileID ); /* Also closes the file. */
 				LOAD_REGISTERS;
-				sdCloseFile( FileID );
 				if( Scratch ) M_THROW(Scratch);
 			}
 			else