X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c..c1b0551debcb415cbc9fc976d011998d9f14759b:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 0223ab0..b9c46f3 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -738,16 +738,14 @@ variable TRACE-INCLUDE
                 drop ." Could not find file " $type cr abort
         ELSE ( -- $filename good-fid )
                 swap include.mark.start
-                dup >r   \ save fid for close-file
                 depth >r
-                include-file
+                include-file    \ will also close the file
                 depth 1+ r> -
                 IF
                         ." Warning: stack depth changed during include!" cr
                         .s cr
                         0sp
                 THEN
-                r> close-file drop
                 include.mark.end
         THEN
         trace-include @