diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp
index bc57ea4814..39a9de9f7c 100644
--- a/debugger/callstackdlg.pp
+++ b/debugger/callstackdlg.pp
@@ -513,10 +513,11 @@ var
   Entry: TIdeCallStackEntry;
   S: String;
 begin
+  if (GetSelectedCallstack=nil) or (GetSelectedCallstack.Count=0) then
+    exit;
+
   Clipboard.Clear;
-  
-  if (GetSelectedCallstack=nil) or (GetSelectedCallstack.Count=0) then exit;
-  
+
   S := '';
   // GetSelectedCallstack.PrepareRange();
   for n:= 0 to GetSelectedCallstack.Count-1 do