--- Merging r14420 into '.':

U    rtl/inc/heap.inc

git-svn-id: branches/fixes_2_4@14425 -

rtl/inc/heap.inc

@@ -949,7 +949,7 @@ begin
   iter := high(iter);
   while assigned(pcurr) and (iter>0) do
   begin
-    if (pcurr^.size>size) then
+    if (pcurr^.size>=size) then
     begin
       if not assigned(pbest) or (pcurr^.size<pbest^.size) then
       begin