diff --git a/source/connections.pas b/source/connections.pas
index c6c39dc0..c0aa5220 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -502,7 +502,8 @@ procedure Tconnform.ListSessionsFocusChanging(Sender: TBaseVirtualTree; OldNode,
   NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
   var Allowed: Boolean);
 begin
-  FinalizeModifications(Allowed);
+  if NewNode <> OldNode then
+    FinalizeModifications(Allowed);
 end;