diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index fb9dd3b..7a9e71d 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -764,7 +764,8 @@ the window will be set to keep-on-top always."))
       (setf (content win) (attach-as-child win (format nil "~A-body"  html-id)))
       (setf (gethash (format nil "~A" html-id) (windows app)) win)
       (set-on-click win (lambda (obj)
-                          (window-focus win)))
+                          (unless (> (modal-count app) 0)
+                            (window-focus win))))
       (if maximize
           (window-maximize win)
           (fire-on-window-change win app))