diff --git a/tile-window.lisp b/tile-window.lisp
index 659ac678..932e9ae0 100644
--- a/tile-window.lisp
+++ b/tile-window.lisp
@@ -118,11 +118,11 @@ than the root window's width and height."
          (setf x (frame-x head)
                y (frame-y head)
                width (frame-width head)
-               height (frame-height head)
-               (group-raised-window (window-group win)) win)
+               height (frame-height head))
          (when (group-raised-window win-group)
            (setf (xlib:window-priority (window-parent win)
-                                       (window-parent (group-raised-window win-group))) :above)))
+                                       (window-parent (group-raised-window win-group))) :above))
+         (setf (group-raised-window win-group) win))
        (return-from geometry-hints (values x y 0 0 width height 0 t)))
       ;; Adjust the defaults if the window is a transient_for window.
       ((find (window-type win) '(:transient :dialog))