diff --git a/tools/clog-builder-control-list.lisp b/tools/clog-builder-control-list.lisp
index 486f089..4d5f39e 100644
--- a/tools/clog-builder-control-list.lisp
+++ b/tools/clog-builder-control-list.lisp
@@ -87,7 +87,9 @@
                    (set-geometry control-list :height (+ (- sheight 10) adj-size)))))
           (set-on-resize (window (connection-body obj)) #'on-size)
           (set-on-window-size win #'on-size)
-          (set-on-window-move win #'on-size)
+          (set-on-window-move win (lambda (obj)
+                                    (setf (height obj) (height obj))
+                                    (on-size obj)))
           (set-on-full-screen-change (html-document (connection-body obj)) #'on-size)
           (set-on-orientation-change (window (connection-body obj)) #'on-size)
           (set-on-pointer-down divider (lambda (obj data)
diff --git a/tools/clog-builder-control-properties.lisp b/tools/clog-builder-control-properties.lisp
index 4aba775..b7f5ece 100644
--- a/tools/clog-builder-control-properties.lisp
+++ b/tools/clog-builder-control-properties.lisp
@@ -10,6 +10,8 @@
         (add-class content "w3-small")
         (set-on-window-close win (lambda (obj)
                                    (setf (control-properties-win app) nil)))
+        (set-on-window-move win (lambda (obj)
+                                  (setf (height obj) (height obj))))
         (window-toggle-pinned win :state t)
         (setf (control-properties-win app) win)
         (setf (properties-list app) control-list)