Merged revisions 6875 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r6875 | Almindor | 2007-03-16 11:17:24 +0100 (Fri, 16 Mar 2007) | 2 lines
  
  * fix for xmlconfig.getvalue from Sergei
........

git-svn-id: branches/fixes_2_2@6902 -

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;