From 2c149e805aa715eead55fe2a79459a347640edf5 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 27 Jan 2010 19:49:28 +0000
Subject: [PATCH]  * fix for 15597. Added returnvalue to early-out exit().

git-svn-id: trunk@14818 -
---
 rtl/objpas/classes/lists.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/lists.inc b/rtl/objpas/classes/lists.inc
index 7f45655381..ecd0f58433 100644
--- a/rtl/objpas/classes/lists.inc
+++ b/rtl/objpas/classes/lists.inc
@@ -174,7 +174,7 @@ function TFPList.Expand: TFPList;
 var
   IncSize : Longint;
 begin
-  if FCount < FCapacity then exit;
+  if FCount < FCapacity then exit(self);
   IncSize := 4;
   if FCapacity > 3 then IncSize := IncSize + 4;
   if FCapacity > 8 then IncSize := IncSize+8;