diff --git a/util/swm-gaps/swm-gaps.lisp b/util/swm-gaps/swm-gaps.lisp
index 2786e5e..a1ea880 100644
--- a/util/swm-gaps/swm-gaps.lisp
+++ b/util/swm-gaps/swm-gaps.lisp
@@ -64,7 +64,7 @@ HEIGHT are subtracted."
                  (>= width (- (frame-width frame) ow)))
         (setf width (- width ow)))
       (when (and (< oh height)
-                 (>= height (- (frame-height frame) oh)))
+                 (>= height (- (stumpwm::frame-display-height (window-group win) frame) oh)))
         (setf height (- height oh)))
 
       (setf x (+ x ox)