diff --git a/monarch/monarch.lua b/monarch/monarch.lua
index 588cf16..808e11c 100644
--- a/monarch/monarch.lua
+++ b/monarch/monarch.lua
@@ -298,6 +298,12 @@ function M.unregister(id)
 	log("unregister()", id)
 	local screen = screens[id]
 	screens[id] = nil
+	-- remove screen from stack
+	for i = #stack, 1, -1 do
+		if stack[i].id == id then
+			table.remove(stack, i)
+		end
+	end
 end
 
 local function acquire_input(screen)