diff --git a/mystic/bbs_ansi_menubox.pas b/mystic/bbs_ansi_menubox.pas
index 2c26c1d..d06e12f 100644
--- a/mystic/bbs_ansi_menubox.pas
+++ b/mystic/bbs_ansi_menubox.pas
@@ -702,6 +702,12 @@ Begin
               End;
       Else
         If Pos(Ch, HiChars) > 0 Then Begin
+          If SearchStr <> '' Then Begin
+            SearchStr := '';
+            If Assigned(SearchProc) Then
+              SearchProc(Self, SearchStr);
+          End;
+
           ExitCode := Ch;
           Exit;
         End;
@@ -719,6 +725,12 @@ Begin
         DownArrow;
       End Else
       If Pos(Ch, LoChars) > 0 Then Begin
+        If SearchStr <> '' Then Begin
+          SearchStr := '';
+          If Assigned(SearchProc) Then
+            SearchProc(Self, SearchStr);
+        End;
+
         ExitCode := Ch;
         Exit;
       End Else Begin