diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 83c7d9b343..3459108d7c 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -7834,7 +7834,9 @@ end;
 
 function TSourceNotebook.GetHistoryDlg: TBrowseEditorTabHistoryDialog;
 begin
-  FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
+  if FHistoryDlg=nil then
+    FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
+  Result:=FHistoryDlg;
 end;
 
 procedure TSourceNotebook.BeginIncrementalFind;