diff --git a/8080/CPM/src/vf-file1.fth b/8080/CPM/src/vf-file1.fth
index a6a4de9..1766322 100644
--- a/8080/CPM/src/vf-file1.fth
+++ b/8080/CPM/src/vf-file1.fth
@@ -73,6 +73,6 @@
   incfile push  isfile@ incfile !
   savetib >r  interpret-via-tib
   \ ." before isfile@ closefile"
-  \ isfile@ closefile
+  incfile @ 2+ closefile Abort" error closing file"
   \ ." after isfile@ closefile"
   r> restoretib ;