X-Git-Url: https://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/336369a5b94ae6588fb891606d37053f9fb8c2d6..90975d261c7ab39186c75d8700261faab3427de7:/fth/system.fth?ds=inline

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 @