diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index fd210a4c5..54a19e3e9 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -437,6 +437,8 @@ ProDOS_enter
     rts
 
 @imp_close
+    lda    @handles+1
+    beq    @close_ret
     dec    @handles+1
     bne    @close_ret
     lda    #>hddencbuf