1 files changed, 1 insertions, 0 deletions
diff --git a/raetselunit.inc b/raetselunit.inc
index 190ab73..90315bf 100644
--- a/raetselunit.inc
+++ b/raetselunit.inc
@@ -272,6 +272,7 @@ begin
         for i:=0 to length(buff)-1 do
           for j:=0 to min(7,length(EMoeglich)-8*i-1) do
             EMoeglich[8*i+j]:=odd(buff[i] shr j);
+        closeFile(dat);
         exit;
       end
       else