--- a/Workspace.st	Thu Sep 05 13:07:45 2013 +0200
+++ b/Workspace.st	Thu Sep 05 13:15:22 2013 +0200
@@ -2087,7 +2087,7 @@
     replStartCol := self selectionStartCol.
     self
         undoableDo:[
-            self replaceSelectionWith: expandedString
+            self replaceSelectionBy: expandedString
         ]
         info:'Replace'.
 
@@ -2533,10 +2533,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.294 2013-09-05 00:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.295 2013-09-05 11:15:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.294 2013-09-05 00:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.295 2013-09-05 11:15:22 cg Exp $'
 ! !