--- a/UIObjectView.st	Tue Mar 14 20:03:57 2006 +0100
+++ b/UIObjectView.st	Mon Mar 20 09:38:37 2006 +0100
@@ -2506,7 +2506,7 @@
 
         aBlock value.
 
-        transaction isEmpty ifFalse:[
+        transaction notEmpty ifTrue:[
             identifier := identifier + 1.
             transaction identifier:identifier.
             history addLast:transaction.
@@ -2775,9 +2775,15 @@
 !UIObjectView::UndoHistory::Transaction methodsFor:'testing'!
 
 isEmpty
-    "returns true if no undo action is registered
-    "
+    "returns true if no undo action is registered"
+
     ^ actions isNil
+!
+
+notEmpty
+    "returns true if no undo action is registered"
+
+    ^ actions notNil
 ! !
 
 !UIObjectView class methodsFor:'documentation'!