From 53dad79aaf6a850171fee9341ca21de9e1d5b090 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 8 Aug 2005 09:02:32 +0000
Subject: [PATCH]  * fix for 4264

git-svn-id: trunk@824 -
---
 fcl/xml/dom.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fcl/xml/dom.pp b/fcl/xml/dom.pp
index 0c73f15082..603a0a4766 100644
--- a/fcl/xml/dom.pp
+++ b/fcl/xml/dom.pp
@@ -745,8 +745,8 @@ function CompareDOMStrings(const s1, s2: DOMPChar; l1, l2: integer): integer;
 var i: integer;
 begin
   Result:=l1-l2;
-  i:=1;
-  while (i<=l1) and (Result=0) do begin
+  i:=0;
+  while (i<l1) and (Result=0) do begin
     Result:=ord(s1[i])-ord(s2[i]);
     inc(i);
   end;