From 30bae1a62271f4c4a131d75d8f0675c2778c308c Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Tue, 13 Dec 2016 18:42:16 +0000
Subject: [PATCH] Fix dump of chunk that crosses +ve to -ve address. Could this
 be the underlying issue in Heap?

---
 src/runtime/Out.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/Out.Mod b/src/runtime/Out.Mod
index 63a22ada..c338fb16 100644
--- a/src/runtime/Out.Mod
+++ b/src/runtime/Out.Mod
@@ -210,7 +210,7 @@ BEGIN
     String("  rsvd:   "); Hex(c.reserved, 1); Ln;
 
     baddr := SYSTEM.ADR(c.firstblock);
-    WHILE baddr < c.end DO
+    WHILE c.end - baddr > 0 DO
       String("  Block at:   "); Hex(baddr, 1); Ln;
       b := SYSTEM.VAL(block, baddr);
       tag  := SYSTEM.VAL(adrptr, b.tag);