--- a/WorkspaceApplication.st	Fri Jan 24 18:23:00 2003 +0100
+++ b/WorkspaceApplication.st	Fri Jan 24 18:29:24 2003 +0100
@@ -920,14 +920,19 @@
 
 babelFishTranslate:fromToModeString
     "translate the selected text and paste it after the selection"
-    |original translated|
+    |original translated v|
 
-    original := self selectedWorkspacesTextView selectionAsString.
+    v := self selectedWorkspacesTextView.
+    original := v selectionAsString.
     original size == 0 ifTrue:[^ self].
     self withWaitCursorDo:[
         translated := SOAP::BabelFishClient new translate:original mode:fromToModeString.
     ].
-    self selectedWorkspacesTextView pasteOrReplace:translated
+
+    "/ v pasteOrReplace:translated
+    v cursorLine:(v selectionEndLine) col:(v selectionEndCol + 1).
+    v unselect.
+    v paste:translated
 !
 
 basicInspectIt
@@ -1555,5 +1560,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.54 2003-01-24 17:23:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.55 2003-01-24 17:29:24 cg Exp $'
 ! !