From 6f037b3258262af10ab42993f07e1924a69f579e Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 12 Jul 2012 21:23:27 -0400
Subject: [PATCH] more precautions to prevent potential errors while reading
 prompts

---
 mystic/bbs_core.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mystic/bbs_core.pas b/mystic/bbs_core.pas
index c6d70cf..a6ad564 100644
--- a/mystic/bbs_core.pas
+++ b/mystic/bbs_core.pas
@@ -231,9 +231,10 @@ Begin
     FileMode := 66;
 
     {$I-}
-    Reset (PromptFile);
-    Seek  (PromptFile, N);
-    Read  (PromptFile, Prompt);
+    Assign (PromptFile, Config.DataPath + Theme.FileName + '.thm');
+    Reset  (PromptFile);
+    Seek   (PromptFile, N);
+    Read   (PromptFile, Prompt);
     {$I+}
 
     If IoResult <> 0 Then Begin