diff --git a/shell/main.mu b/shell/main.mu
index 04f64011..6ebbbc47 100644
--- a/shell/main.mu
+++ b/shell/main.mu
@@ -10,8 +10,8 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
   initialize-sandbox sandbox
   load-sandbox data-disk, sandbox
   {
-    render-globals screen, globals, 0/x, 0/y, 0x40/xmax, 0x30/screen-height
-    render-sandbox screen, sandbox, 0x40/x, 0/y, 0x80/screen-width, 0x30/screen-height
+    render-globals screen, globals, 0/x, 0/y, 0x40/xmax, 0x2f/screen-height-without-menu
+    render-sandbox screen, sandbox, 0x40/x, 0/y, 0x80/screen-width, 0x2f/screen-height-without-menu
     {
       var key/eax: byte <- read-key keyboard
       compare key, 0
diff --git a/shell/sandbox.mu b/shell/sandbox.mu
index 06bf3656..28ace92f 100644
--- a/shell/sandbox.mu
+++ b/shell/sandbox.mu
@@ -93,6 +93,9 @@ fn render-sandbox-menu screen: (addr screen) {
   width, height <- screen-size screen
   var y/ecx: int <- copy height
   y <- decrement
+  var height/edx: int <- copy y
+  height <- increment
+  clear-rect screen, 0/x, y, width, height, 0/bg=black
   set-cursor-position screen, 0/x, y
   draw-text-rightward-from-cursor screen, " ctrl-s ", width, 0/fg, 7/bg=grey
   draw-text-rightward-from-cursor screen, " run sandbox  ", width, 7/fg, 0/bg