--- a/Tools__NewSystemBrowser.st	Mon Feb 06 12:26:15 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 06 12:26:51 2012 +0100
@@ -45699,25 +45699,29 @@
     <resource: #programMenu >
 
     ^ [
-        |m cls classes|
+        |m cls classes first|
 
         cls := self theSingleSelectedClass.
         (cls notNil and:[cls superclass notNil]) ifTrue:[
             m := Menu new.
             cls := cls superclass.
+            first := true.
             [cls notNil] whileTrue:[
                 |item className|
 
                 className := cls name.
-                item := MenuItem label:className.
+                item := MenuItem label:(first ifTrue:[className,' (direct superclass)'] ifFalse:[className]).
                 m addItem:item beforeIndex:1.   "/ reverse
                 item value:#'switchToClassNamed:'.
                 item argument:className.
                 cls := cls superclass.
+                first := false.
             ].
         ].
         m
     ].
+
+    "Modified: / 05-02-2012 / 10:30:03 / cg"
 !
 
 selectorMenuNewSlice
@@ -55719,11 +55723,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1703 2012-02-04 12:22:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1704 2012-02-06 11:26:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1703 2012-02-04 12:22:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1704 2012-02-06 11:26:51 cg Exp $'
 !
 
 version_SVN