1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c
index 1b0d48facf..146e2d52b0 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -2718,6 +2718,7 @@ loadArchive( pathchar *path )
 
             if (0 == loadOc(oc)) {
                 stgFree(fileName);
+                fclose(f);
                 return 0;
             }
         }