--- a/Launcher.st	Mon Dec 08 18:33:51 1997 +0100
+++ b/Launcher.st	Mon Dec 08 18:59:54 1997 +0100
@@ -835,6 +835,17 @@
                 "/ fill bottom list with class-info
 
                 classNames := info classNames asSortedCollection.
+                classNames := classNames select:[:cName |
+                                |cls|
+
+                                cls := Smalltalk classNamed:cName.
+                                cls isNil ifTrue:[
+                                    true "a removed class"
+                                ] ifFalse:[
+                                    cls isPrivate not
+                                ].
+                              ].
+
                 classNames := classNames collect:[:cName |
                                 |cls entry rev listEntry|
 
@@ -970,8 +981,8 @@
 
     box destroy.
 
-    "Modified: 17.9.1995 / 16:47:50 / claus"
-    "Modified: 18.10.1997 / 03:43:39 / cg"
+    "Modified: / 17.9.1995 / 16:47:50 / claus"
+    "Modified: / 15.11.1997 / 13:10:44 / cg"
 !
 
 snapshot
@@ -4930,5 +4941,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.303 1997-11-26 18:59:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.304 1997-12-08 17:59:54 cg Exp $'
 ! !