--- a/Tools__NewSystemBrowser.st	Tue Oct 18 23:12:21 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Oct 19 16:34:34 2011 +0200
@@ -28028,11 +28028,13 @@
 
     allClasses := OrderedCollection new.
     classes do:[:eachClass |
-        eachClass withAllPrivateClassesDo:[:everyClass |
+        eachClass theNonMetaclass withAllPrivateClassesDo:[:everyClass |
             allClasses add:everyClass
         ].
     ].
     ^ self spawnClassBrowserFor:allClasses label:titleOrNil in:where select:true
+
+    "Modified: / 19-10-2011 / 16:06:25 / cg"
 !
 
 spawnClassBrowserFor:classes label:labelOrNil in:where select:doSelectIn
@@ -54028,11 +54030,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1642 2011-10-18 15:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1643 2011-10-19 14:34:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1642 2011-10-18 15:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1643 2011-10-19 14:34:34 cg Exp $'
 !
 
 version_SVN