diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index 99539b7ce4..45f46eb818 100644
--- a/rtl/inc/heap.inc
+++ b/rtl/inc/heap.inc
@@ -38,6 +38,10 @@
   {$define HAS_MEMORYMANAGER}
 {$endif HAS_MT_MEMORYMANAGER}
 
+{$ifdef DUMP_MEM_USAGE}
+  {$define SHOW_MEM_USAGE}
+{$endif}
+
 const
 {$ifdef CPU64}
   blocksize    = 32;  { at least size of freerecord }
@@ -1450,9 +1454,11 @@ var
   poc : poschunk;
   i : longint;
 begin
-{$ifdef DUMP_MEM_USAGE}
+{$ifdef SHOW_MEM_USAGE}
   writeln('Max heap used/size: ', internal_status.maxheapused, '/', 
     internal_status.maxheapsize);
+{$endif}
+{$ifdef DUMP_MEM_USAGE}
   for i := 0 to sizeusageindex-1 do
     if maxsizeusage[i] <> 0 then
       writeln('size ', i shl sizeusageshift, ' usage ', maxsizeusage[i]);