diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 68f3e3a386..69b0409030 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -1282,7 +1282,8 @@ begin
             begin
               ProcNode:=CodeNode.Parent;
               TVNode:=AddCodeNode(cefcLongProcs,ProcNode);
-              TVNode.Text:=TVNode.Text+' ['+IntToStr(LineCnt)+']';
+              if Assigned(TVNode) then
+                TVNode.Text:=TVNode.Text+' ['+IntToStr(LineCnt)+']';
             end;
           end;
           if (cefcEmptyProcs in ObserverCats)