--- a/Tools__ChangeList.st	Fri Nov 18 15:06:57 2011 +0100
+++ b/Tools__ChangeList.st	Fri Nov 18 15:07:05 2011 +0100
@@ -458,7 +458,7 @@
     button ~= 1 ifTrue:[^aView buttonPress:button x:x y:y].
 
     itemIndex := aView yVisibleToLineNr:y.
-    itemIndex ifNil:[^self].
+    itemIndex isNil ifTrue:[^self].
     itemIndex == 0 ifTrue:[^self].
     itemIndex > aView list size ifTrue:[^self].
     item := aView list at: itemIndex.
@@ -470,6 +470,7 @@
     aView invalidate
 
     "Created: / 08-12-2009 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:55:41 / cg"
 !
 
 handlesButtonPress:button inView:aView
@@ -823,20 +824,21 @@
 
 children
 
-    children ifNil:
-        [children :=
+    children isNil ifTrue:[
+        children :=
             change isCompositeChange 
-                ifTrue:[change changes select:
-                            [:chg|
-                            (self application showRemovedHolder value or:[ chg removed not ])
-                                and:[self application showSameHolder value or:[chg delta ~~ #=]]]
+                ifTrue:[change changes 
+                            select:[:chg|
+                                (self application showRemovedHolder value or:[ chg removed not ])
+                                    and:[self application showSameHolder value or:[chg delta ~~ #=]]]
                             thenCollect:[:chg|(self application listEntryFor: chg) parent: self]]
                 ifFalse:[#()]
-        ].
+    ].
     ^children
 
     "Created: / 25-07-2009 / 23:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 04-08-2011 / 18:48:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 18-11-2011 / 14:56:25 / cg"
 !
 
 delta
@@ -860,11 +862,12 @@
 
     | iconSelector |
     iconSelector := self iconSelector.
-    iconSelector ifNil:[^nil].
+    iconSelector isNil ifTrue:[^nil].
     self removed ifTrue:[iconSelector := iconSelector , #Grayed].
     ^self application class perform: iconSelector asSymbol.
 
     "Created: / 05-12-2009 / 14:11:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:56:33 / cg"
 !
 
 iconRemoved
@@ -950,11 +953,11 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.6 2011-08-31 10:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.7 2011-11-18 14:07:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.6 2011-08-31 10:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.7 2011-11-18 14:07:05 cg Exp $'
 !
 
 version_SVN