In widgets.lisp: (defmethod put-on-bottom ((widget base-widget)) (setf (xlib:window-priority (widget-window widget)) :above)) Shouldn't that be :below? Currently it's the same code as put-on-top.