--- a/XWorkstation.st	Thu Mar 14 16:05:41 2013 +0100
+++ b/XWorkstation.st	Mon Mar 18 14:07:37 2013 +0100
@@ -1518,7 +1518,14 @@
      On multi-display systems with different sized screens, this should care for
      which display is at the given x-position"
 
-    ^ (self monitorBoundsAt:aPoint) height.
+    |h|
+
+    h := (self monitorBoundsAt:aPoint) height.
+    OperatingSystem isOSXlike ifTrue:[
+        "/ take away some space for the icon-panel at the bottom.
+        ^ h - 50
+    ].
+    ^ h
 
     "
      Screen current usableHeightAt:(0@0)
@@ -12785,11 +12792,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.562 2013-03-18 13:07:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.561 2013-02-13 20:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.562 2013-03-18 13:07:37 cg Exp $'
 !
 
 version_SVN