--- a/BrowserView.st	Sat Mar 22 15:32:26 1997 +0100
+++ b/BrowserView.st	Sat Mar 22 16:22:14 1997 +0100
@@ -3914,7 +3914,7 @@
     isPrivate ifTrue:[
         namePrefix := currentClass name , '::'.
         existingNames := currentClass privateClasses.
-        existingNames notNil ifTrue:[
+        existingNames size > 0 ifTrue:[
             existingNames := existingNames collect:[:cls | cls name].
         ]
     ] ifFalse:[
@@ -3979,7 +3979,7 @@
     ^ aString
 
     "Created: 23.12.1996 / 12:46:31 / cg"
-    "Modified: 5.1.1997 / 00:13:33 / cg"
+    "Modified: 22.3.1997 / 16:15:26 / cg"
 !
 
 doClassMenu:aBlock
@@ -9849,6 +9849,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.285 1997-03-22 14:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.286 1997-03-22 15:22:14 cg Exp $'
 ! !
 BrowserView initialize!