diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index f4002c8264..f2f89657e4 100644
--- a/rtl/inc/heap.inc
+++ b/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);