--- a/Workspace.st	Mon Sep 09 13:20:41 2013 +0200
+++ b/Workspace.st	Mon Sep 09 16:41:21 2013 +0200
@@ -2335,6 +2335,7 @@
 
     "/ move the window
     movePos := editView device translatePoint:(cursorX @ cursorY) fromView:editView toView:nil.
+    movePos := movePos - (editView viewOrigin x @ 0).
     "/ currently, we have to stay away a bit, to avoid getting the focus
     movePos := movePos + (60 @ (editView font height)).
 
@@ -2575,10 +2576,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.301 2013-09-09 11:20:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.302 2013-09-09 14:41:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.301 2013-09-09 11:20:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.302 2013-09-09 14:41:21 cg Exp $'
 ! !