diff --git a/ide/findrenameidentifier.pas b/ide/findrenameidentifier.pas
index ad16e08086..506e3415ee 100644
--- a/ide/findrenameidentifier.pas
+++ b/ide/findrenameidentifier.pas
@@ -1491,6 +1491,7 @@ begin
   FIdentifierPosition:=NewIdentifierPosition;
   FNode:=nil;
   FTool:=nil;
+  Node:=nil;
   //debugln(['TFindRenameIdentifierDialog.SetIdentifier ',FIdentifierFilename,' ',dbgs(FIdentifierPosition)]);
   CurrentListBox.Items.Clear;
   s:=IdentifierFilename