--- a/WinWorkstation.st	Wed Feb 03 18:29:05 2010 +0100
+++ b/WinWorkstation.st	Wed Feb 03 19:14:54 2010 +0100
@@ -7478,8 +7478,8 @@
     |info|
 
     (self numberOfMonitors) > 1 ifTrue:[
-        info := self monitorInfoFor:(self monitorHandleForPoint:aPoint).
-        ^ info workHeight
+        info := self monitorInfoFor:(self monitorHandleForPoint:(aPoint max:(0@0))).
+        info notNil ifTrue:[ ^ info workHeight ].
     ].
     ^ self usableHeight
 
@@ -18876,11 +18876,11 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.421 2010-02-03 17:29:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.422 2010-02-03 18:14:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.421 2010-02-03 17:29:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.422 2010-02-03 18:14:54 cg Exp $'
 ! !
 
 WinWorkstation initialize!