diff --git a/mystic/mutil.pas b/mystic/mutil.pas
index a0c58f6..bdc087f 100644
--- a/mystic/mutil.pas
+++ b/mystic/mutil.pas
@@ -137,6 +137,8 @@ Begin
   MkDir (TempPath);
   {$I+}
 
+  If IoResult <> 0 Then;
+
   DirClean (TempPath, '');
 
   BarOne := TStatusBar.Create(3);