--- a/ModalBox.st	Thu Dec 13 00:09:33 2012 +0100
+++ b/ModalBox.st	Fri Dec 14 10:03:16 2012 +0100
@@ -759,7 +759,7 @@
 showAtCenter
     "make myself visible at the screen center."
 
-    self showAt:(device center) center:true
+    self showAt:(device centerOfMonitorHavingPointer) center:true
 
     "
      |b|
@@ -904,11 +904,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.109 2012-10-27 11:56:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.110 2012-12-14 09:03:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.109 2012-10-27 11:56:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.110 2012-12-14 09:03:16 stefan Exp $'
 ! !
 
 ModalBox initialize!