diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index e9a03c6..a823e62 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -468,8 +468,8 @@ not a temporary attached one when using select-control."
   (let ((app    (connection-data-item control "builder-app-data"))
         (placer (get-placer control)))
     (deselect-current-control app)
-    (set-geometry placer :top (top control)
-                         :left (left control)
+    (set-geometry placer :top (position-top control)
+                         :left (position-left control)
                          :width (client-width control)
                          :height (client-height control))
     (setf (current-control app) control)