diff --git a/packages/fcl-xml/src/dom.pp b/packages/fcl-xml/src/dom.pp
index 89d5a7296e..c1074fc1d9 100644
--- a/packages/fcl-xml/src/dom.pp
+++ b/packages/fcl-xml/src/dom.pp
@@ -993,7 +993,7 @@ end;
 
 function CompareDOMNodeWithDOMNode(Node1, Node2: Pointer): integer;
 begin
-  Result := TDOMNode(Node1).CompareName(TDOMNode(Node2).NodeName);
+  Result := TDOMNode(Node2).CompareName(TDOMNode(Node1).NodeName);
 end;
 
 function CompareDOMStringWithDOMNode(AKey, ANode: Pointer): integer;