--- a/DeviceWorkstation.st	Fri May 08 13:48:56 2009 +0200
+++ b/DeviceWorkstation.st	Fri May 08 13:51:06 2009 +0200
@@ -1537,7 +1537,7 @@
         w2 := w2 container.
     ].
     devicePoint := self translatePoint:aPoint from:(w1 id) to:(w2 id).
-    ^ devicePoint - offset1 + offset2
+    ^ devicePoint + offset1 - offset2
 
     "Modified: / 27-10-2007 / 13:04:09 / cg"
 !
@@ -7942,7 +7942,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.535 2009-05-08 11:48:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.536 2009-05-08 11:51:06 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!