diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 6d14786a1e..f7c6d7ce47 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -942,6 +942,7 @@ begin
       end;
    end;
   writeln(ptext^,'pointer $',hexstr(ptrint(p),2*sizeof(pointer)),' does not point to valid memory block');
+  dump_error(p,ptext^);
   runerror(204);
 _exit:
 end;