diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 6f6a94a..cfe01a5 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -1230,7 +1230,7 @@ Var
 
     If FN = '' Then Exit;
 
-    Session.io.PromptInfo[1] := JustFileName(FN);
+    Session.io.PromptInfo[1] := JustFile(FN);
 
     Assign  (TF, FN);
     {$I-} ReWrite (TF); {$I+}