--- a/Workspace.st	Tue Sep 30 18:50:13 2008 +0200
+++ b/Workspace.st	Wed Oct 01 11:57:34 2008 +0200
@@ -126,7 +126,7 @@
         at: 'rj'    put: 'reject: [:each | !!]';
         at: 're'    put: 'reject: [:each | !!]';
         at: 'rej'    put: 'reject: [:each | !!]';
-        at: 'inj'   put:'inject: into:[:pValue :each | !!]';
+        at: 'inj'   put:'inject: !! into:[:pValue :each | ]';
         at: 'ex'    put:'Error handle:[ex | !!] do:[]';
         at: 'np'    put: 'nextPut: ';
         at: 'npa'   put: 'nextPutAll: ';
@@ -140,8 +140,8 @@
         at: 'abb'   put: 'Workspace sniplets inspect';
         at: 'slef'  put: 'self';
         at: 'ati'    put: 'at:!! ifAbsent: ';
-        at: 'ini'   put:'initialize', String lf, String lf,'    super initialize.', String lf, ';    ';
-        at: 'newi'  put: 'initialize', String lf, String lf,'    super new initialize.';
+        at: 'ini'   put:'initialize', String lf, String lf,'    super initialize.', String lf, '    ';
+        at: 'newi'  put: 'new', String lf, String lf,'    ^ super new initialize.';
         yourself
 !
 
@@ -1037,7 +1037,10 @@
         expandedString := expandedString copyWithout:$!!.
     ].
     replStartCol := self selectionStartCol.
-    self replaceSelectionWith: expandedString.
+    self
+        undoableDo:[
+            self replaceSelectionWith: expandedString.
+    ] info:'Replace'.
 
     newCursorPos == 0 ifTrue:[
         "/ cursor already fine (at the end)
@@ -1587,5 +1590,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.183 2008-09-30 16:50:13 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.184 2008-10-01 09:57:34 fm Exp $'
 ! !