diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 33ecf0802b..748629850e 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -1882,8 +1882,9 @@ var
   TheDialog: TEvaluateDlg;
 begin
   TheDialog := TEvaluateDlg(FDialogs[ddtEvaluate]);
-  if (SourceEditorManager.GetActiveSE <> nil) and
-     SourceEditorManager.GetActiveSE.SelectionAvailable
+  if (SourceEditorManager.GetActiveSE = nil) then
+    exit;
+  if SourceEditorManager.GetActiveSE.SelectionAvailable
   then
     TheDialog.FindText := SourceEditorManager.GetActiveSE.Selection
   else