From 97ce05dff242d2197d950c440d4414ddbc716aac Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 5 Jun 2010 18:51:56 +0000
Subject: [PATCH] Debugger: fix crash during IDE startup

git-svn-id: trunk@25929 -
---
 ide/debugmanager.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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