Merged revisions 6874 via svnmerge from

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

........
  r6874 | Almindor | 2007-03-15 20:26:07 +0100 (Thu, 15 Mar 2007) | 2 lines
  
  * patch from Sergei, fixes bug #8492
........

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

packages/fcl-xml/src/dom.pp

@@ -1218,7 +1218,7 @@ var AVLNode: TAVLTreeNode;
 begin
   Result:=nil;
   if FChildNodeTree<>nil then begin
-    AVLNode:=FChildNodeTree.FindKey(Pointer(ANodeName),
+    AVLNode:=FChildNodeTree.FindKey(Pointer(@ANodeName),
                                     @CompareDOMStringWithDOMNode);
     if AVLNode<>nil then
       Result:=TDOMNode(AVLNode.Data);