--- a/ChangesBrowser.st	Sun Jul 18 23:58:17 2010 +0200
+++ b/ChangesBrowser.st	Wed Jul 21 18:15:01 2010 +0200
@@ -2851,8 +2851,8 @@
                                 ].
                                 [changeClass isNil] whileTrue:[
                                     (NameSpace allNameSpaces
-                                        detect:[:ns | (nsClass := (ns at:className)) notNil] ifNone:nil)
-                                    notNil ifTrue:[
+                                        contains:[:ns | (nsClass := (ns at:className)) notNil])
+                                    ifTrue:[
                                         shortName := nsClass name.
                                     ] ifFalse:[
                                         shortName := className copyFrom:(className lastIndexOf:$:) + 1.
@@ -2898,7 +2898,7 @@
 
     ^ aborted not
 
-    "Modified: / 20-11-2006 / 13:15:48 / cg"
+    "Modified: / 21-07-2010 / 18:03:31 / cg"
 !
 
 compareCategoryChange:parseTree
@@ -6145,9 +6145,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.402 2010-07-18 08:32:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.403 2010-07-21 16:15:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.402 2010-07-18 08:32:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.403 2010-07-21 16:15:01 cg Exp $'
 ! !