--- E:/bds4/Imports/jvcl/run/__history/JvXmlTree.pas.~1~	Thu Feb 17 11:21:20 2005
+++ E:/bds4/Imports/jvcl/run/JvXmlTree.pas	Sat Oct 21 16:30:24 2006
@@ -1336,7 +1336,9 @@
   Name := 'root';
   N := Self;
   C := Lines.Count - 1;
-  repeat
+//  repeat
+  while I <= C do
+  begin
     S := Lines[I];
     Token := Copy(S, 1, 3);
     AName := Copy(S, 4, Length(S));
@@ -1364,7 +1366,8 @@
       N.ValueType := xvtCDATA;
     end;
     Inc(I);
-  until I > C;
+  //until I > C;
+  end;
 end;
 
 procedure TJvXMLTree.LoadFromFile(const FileName: string);