--- a/UndoSupport.st	Fri Feb 25 12:00:07 2005 +0100
+++ b/UndoSupport.st	Fri Feb 25 12:44:26 2005 +0100
@@ -179,10 +179,16 @@
 !
 
 undoableDo:aBlock
+    self undoableDo:aBlock info:nil.
+!
+
+undoableDo:aBlock info:aString
     transaction notNil ifTrue:[
+        infoOfCurrentTransaction := infoOfCurrentTransaction ? aString.
         aBlock value.
     ] ifFalse:[
         transaction := OrderedCollection new.
+        infoOfCurrentTransaction := aString.
         aBlock 
             ensure:[  
                 self closeTransactionAndAddTo:undoList.
@@ -222,5 +228,5 @@
 !UndoSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.4 2005-02-25 11:00:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.5 2005-02-25 11:44:26 cg Exp $'
 ! !