From c5561dd0e0d753df57ac3c2ba3691a498ba8db1d Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Mon, 12 Dec 2016 20:06:00 +0000
Subject: [PATCH] Make type descriptor dump resilient to increments (mid-GC)
 tags.

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

diff --git a/src/runtime/Out.Mod b/src/runtime/Out.Mod
index 37c928a4..9dcb6b7f 100644
--- a/src/runtime/Out.Mod
+++ b/src/runtime/Out.Mod
@@ -147,6 +147,7 @@ VAR
 BEGIN
   SYSTEM.GET(SYSTEM.ADR(o) - SIZE(SYSTEM.ADDRESS), addr);
   String("obj tag:  "); Hex(addr,1); Ln;
+  DEC(addr, addr MOD 2); (* Work OK with incremented tags. *)
   desc := SYSTEM.VAL(tag, addr - (21*SIZE(SYSTEM.ADDRESS) + 24));
   String("desc at:  "); Hex(SYSTEM.VAL(SYSTEM.ADDRESS, desc),1); Ln;
   String("desc contains:"); Ln;