diff --git a/ide/main.pp b/ide/main.pp
index e61d7c3b0c..a1e37cf0c5 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -14321,15 +14321,8 @@ begin
     // ToDo: search i18n references
     // ToDo: designer references
 
-    // show result
-    if (not Options.Rename) or (not Rename) then begin
-      Result:=ShowIdentifierReferences(DeclarationUnitInfo.Source,
-        DeclarationCaretXY,PascalReferences);
-      if Result<>mrOk then exit;
-    end;
-
     // rename identifier
-    if Options.Rename and Rename then begin
+    if Options.Rename then begin
       if CompareIdentifiers(PChar(Identifier),PChar(CurUnitName))=0 then
       begin
         IDEMessageDialog(srkmecRenameIdentifier,
@@ -14347,6 +14340,13 @@ begin
       end;
     end;
 
+    // show result
+    if (not Options.Rename) or (not Rename) then begin
+      Result:=ShowIdentifierReferences(DeclarationUnitInfo.Source,
+        DeclarationCaretXY,PascalReferences);
+      if Result<>mrOk then exit;
+    end;
+
   finally
     Files.Free;
     OwnerList.Free;