<div dir="ltr"><div><div><div><div><div><div><div>In module 51 of the program we have the lines, abbreviated,<br></div>if a_open_in(pool_file) then<br></div>  begin<br>  ...<br></div>  end<br></div>else bad_pool(...)<br><br></div>but bad_pool tries to close the file,<br></div>define bad_pool(#)<br></div>  begin  <br><div>  ...<br></div><div>  a_close(pool_file);<br></div><div>  ...<br></div><div>  end<br><br></div><div>So if we didn't manage to open the file we still try to close it.<br><br></div><div>Regards,<br><br></div><div>Richard Sandberg<br><br></div></div>