From 849f80ac2245ae8d3f00ad4ab5e57fc79a2effe4 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 15 Apr 2021 18:42:14 -0700
Subject: [PATCH] .

---
 shell/main.mu | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/shell/main.mu b/shell/main.mu
index 5f9f919e..831c7f09 100644
--- a/shell/main.mu
+++ b/shell/main.mu
@@ -43,6 +43,13 @@ fn load-sandbox data-disk: (addr disk), _self: (addr sandbox) {
   var initial-root/ecx: (addr handle cell) <- address initial-root-storage
   read-cell data, initial-root, 0/no-trace
   clear-gap-buffer data
+  #
+  {
+    var initial-root-addr/eax: (addr cell) <- lookup *initial-root
+    compare initial-root-addr, 0
+    break-if-!=
+    return
+  }
   # print: cell -> stream
   print-cell initial-root, s, 0/no-trace
   # stream -> gap-buffer