diff --git a/basis/ui/windows/windows.factor b/basis/ui/windows/windows.factor
index 345c73b..6a17c55 100755
--- a/basis/ui/windows/windows.factor
+++ b/basis/ui/windows/windows.factor
@@ -419,8 +419,13 @@ M: windows-ui-backend do-events
 : adjust-RECT ( RECT -- )
     style 0 ex-style AdjustWindowRectEx win32-error=0/f ;
 
+: auto-position ( loc -- loc )
+    dup { 0 0 } =
+    [ drop CW_USEDEFAULT dup 2array ] when ;
+
 : make-RECT ( world -- RECT )
-    dup window-loc>> { 40 40 } vmax dup rot rect-dim v+
+    dup window-loc>> auto-position
+    dup rot rect-dim v+
     "RECT" <c-object>
     over first over set-RECT-right
     swap second over set-RECT-bottom