--- Merging r14425 into '.':

U    rtl/inc/heap.inc
--- Merging r14425 into 'packages/unzip/src/unzip51g.pp':
 G   packages/unzip/src/unzip51g.pp
--- Merging r14425 into '.':
 G   .

git-svn-id: tags/release_2_4_0@14427 -

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