diff --git a/source/main.pas b/source/main.pas
index 594adb88..9efc4790 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5523,7 +5523,7 @@ end;
 
 function TMainForm.GetSelectedNodeType: TListNodeType;
 begin
-  Result := GetNodeType(DBtree.GetFirstSelected);
+  Result := GetNodeType(DBtree.FocusedNode);
 end;