--- a/Workspace.st	Wed Nov 26 16:44:02 2008 +0100
+++ b/Workspace.st	Wed Nov 26 16:44:32 2008 +0100
@@ -922,9 +922,7 @@
 
     selectionStartLine isNil ifTrue:[ 
         self 
-            undoableDo:[
-                self commentFrom:cursorLine to:cursorLine
-            ]
+            undoableDo:[ self commentFrom:cursorLine to:cursorLine ]
             info:'Comment'.
         ^ self
     ].
@@ -1092,8 +1090,8 @@
     replStartCol := self selectionStartCol.
     self
         undoableDo:[
-            self replaceSelectionWith: expandedString.
-    ] info:'Replace'.
+            self replaceSelectionWith: expandedString]
+        info:'Replace'.
 
     newCursorPos == 0 ifTrue:[
         "/ cursor already fine (at the end)
@@ -1646,5 +1644,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.196 2008-10-24 13:15:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.197 2008-11-26 15:44:32 cg Exp $'
 ! !