* patch from Vincent to fix TReader.ReadCollection calling clear() logic

git-svn-id: trunk@11348 -

rtl/objpas/classes/reader.inc

@@ -740,7 +740,8 @@ var
   Item: TCollectionItem;
 begin
   Collection.BeginUpdate;
-  Collection.Clear;
+  if not EndOfList then
+    Collection.Clear;
   while not EndOfList do begin
     ReadListBegin;
     Item := Collection.Add;