From efebe6698828cfacf7de6d65e55b98aea5acd887 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 6 Sep 2012 04:32:53 -0400
Subject: [PATCH] Typo

---
 mystic/bbs_filebase.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 13466c2..c8bd678 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -447,7 +447,7 @@ Begin
       Arc^.FindFirst(SR);
 
       While SR.Name <> '' Do Begin
-        If (Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
+        If Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
           DizName := strStripLow(SR.Name);
           Break;
         End;
@@ -607,7 +607,7 @@ Begin
   End Else
     Session.io.OutFullLn (Session.GetPrompt(386));
 
-  DirClean(Session.TempPath, '');
+  FileErase (Session.TempPath + 'xfer.log');
 End;
 
 Procedure TFileBase.DownloadFileList (Data: String);