From a0bafcb2d4a9259fe1c1a7ae2270e98d1c0c0cfe Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 24 Feb 2012 09:31:31 -0500
Subject: [PATCH] FileErase bugfix

---
 mdl/m_fileio.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mdl/m_fileio.pas b/mdl/m_fileio.pas
index 32e82ee..f11155b 100644
--- a/mdl/m_fileio.pas
+++ b/mdl/m_fileio.pas
@@ -374,7 +374,8 @@ Var
 Begin
   Assign   (F, Str);
   SetFAttr (F, Archive);
-  Erase    (F);
+
+  {$I-} Erase (F); {$I+}
 
   Result := (IoResult = 0);
 End;