--- a/Tools__ChangeList.st	Wed Feb 25 23:35:45 2015 +0100
+++ b/Tools__ChangeList.st	Thu Feb 26 02:06:39 2015 +0100
@@ -975,24 +975,28 @@
 !
 
 listMenuBrowseChanges: changes
-    | classes methods methodsOnly browserClass|
+    | collectChanges classes methods methodsOnly browserClass|
 
     classes := Set new.
     methods := Set new.
     methodsOnly := true.
-    changes do: [:each |
-        each isClassChange ifTrue:[
-            each changeClass ifNotNil:[
+
+    collectChanges := 
+        [:each |
+            (each isClassChange and:[each changeClass notNil]) ifTrue:[
                 classes add: each  changeClass.
-                each isMethodCodeChange 
-                    ifTrue:
-                        [each changeMethod ifNotNil:
-                            [methods add:each changeMethod]]
-                    ifFalse:
-                        [methodsOnly := false]
+                each isMethodCodeChange ifTrue:[
+                    each changeMethod notNil ifTrue: [methods add:each changeMethod]
+                ] ifFalse:[
+                    methodsOnly := false
+                ]
+            ] ifFalse:[
+                each isCompositeChange ifTrue:[
+                    each changes do:collectChanges
+                ]
             ]
-        ]
-    ].
+        ].
+    changes do: collectChanges.
 
     browserClass := environment browserClass.
     methodsOnly 
@@ -1641,14 +1645,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
+    ^ '$Id: Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
 ! !