* fix heap var size chunk search to be as intended (search constant number of blocks from best, not from any bigger)

git-svn-id: trunk@7807 -

rtl/inc/heap.inc

@@ -964,8 +964,8 @@ begin
         pbest := pcurr;
         if pcurr^.size = size then
           break;
+        iter := matcheffort;
       end;
-      iter := matcheffort;
     end;
     pcurr := pcurr^.next_var;
     dec(iter);