--- a/WindowBuilder.st	Wed Feb 26 17:18:29 2020 +0100
+++ b/WindowBuilder.st	Wed Feb 26 18:06:12 2020 +0100
@@ -1514,8 +1514,9 @@
                 newOrigin := newOrigin x @ y.
             ].
             usableHeight := windowsDevice usableHeightAt:newOrigin+window extent.
-            (newOrigin y + window height) > usableHeight ifTrue:[
-                y := usableHeight - window height - 20.
+            (newOrigin y + window height) > (monitorBounds top + usableHeight) ifTrue:[
+                "if window doesn't fit, place it at (or near) the top of the monitor"
+                y := monitorBounds top + usableHeight - window height - 20.
                 newOrigin := newOrigin x @ y.
             ].
         ].