--- a/AbstractLauncherApplication.st	Wed Apr 20 17:19:42 2011 +0200
+++ b/AbstractLauncherApplication.st	Wed Apr 20 17:21:35 2011 +0200
@@ -276,7 +276,7 @@
         className := eachEntry at:2 ifAbsent:nil.
         (className notNil and:[className startsWith:'[']) ifTrue:[
             code := className copyFrom:2 to:(className size - 1).
-            classList := Parser evaluate:code.
+            classList := (Parser evaluate:code) select:[:clsOrNil | clsOrNil notNil].
             name := eachEntry at:1.
             self assert:(name includesString:'[').
 
@@ -331,7 +331,7 @@
     "
 
     "Modified: / 16-12-2002 / 18:12:50 / penk"
-    "Modified: / 19-04-2011 / 12:53:26 / cg"
+    "Modified: / 20-04-2011 / 17:03:33 / cg"
 !
 
 removeSettingsApplicationByClass:aClass
@@ -6814,9 +6814,9 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.402 2011-04-19 10:58:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.403 2011-04-20 15:21:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.402 2011-04-19 10:58:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.403 2011-04-20 15:21:35 cg Exp $'
 ! !