diff --git a/src/llogo/loader.153 b/src/llogo/loader.153
index cce5cbe6..833b9d86 100644
--- a/src/llogo/loader.153
+++ b/src/llogo/loader.153
@@ -144,6 +144,8 @@ UUO:/	)	       (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.)))
                             (PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION))
                        (UCLOSE)
 		       (PURIFY 0. 0. 'BPORG)
+		       (IF (NOT (EQ INFILE T))
+			   (CLOSE (PROG1 INFILE (INPUSH -1))))
 		       (SUSPEND (ATOMIZE ':SYMLOD EOL ':PDUMP/ LLOGO/;TS/  DUMP EOL ':KILL/ )))
 		      (DUMP (IOG NIL (PRINC 'VERSION/ NUMBER?/ )
                                      (PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION))