diff --git a/mystic/mide.pas b/mystic/mide.pas
index 5018055..d32b70a 100644
--- a/mystic/mide.pas
+++ b/mystic/mide.pas
@@ -659,6 +659,7 @@ Var
   Done : Boolean;
   Mode : Byte;
 Begin
+  Result   := False;
   Box      := TMenuBox.Create(Console);
   DirList  := TMenuList.Create(Console);
   FileList := TMenuList.Create(Console);