diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 5165f09..547bc17 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -1173,7 +1173,8 @@ interactions. Use window-end-modal to undo."))
 
 (defmethod window-make-modal ((obj clog-gui-window))
   (let ((app (connection-data-item obj "clog-gui")))
-    (when (and app (= (modal-count app) 0))
+    (when (and app
+	       (<= (modal-count app) 0))
       (setf (modal-background app) (create-div (body app) :class "w3-overlay"))
       (setf (display (modal-background app)) :block))
     (incf (modal-count app))