--- a/Tools_ClassList.st	Wed Feb 27 13:25:11 2008 +0100
+++ b/Tools_ClassList.st	Wed Feb 27 13:25:40 2008 +0100
@@ -1554,7 +1554,7 @@
             found := true
         ].
         (classes includes:nil) ifTrue:[
-self halt:'should not happen'.
+"/ self halt:'should not happen'.
             classList value:(classes := classes select:[:each | each notNil]).
         ].
     ].
@@ -1565,7 +1565,7 @@
             found := true
         ].
         (classes includes:nil) ifTrue:[
-self halt:'should not happen'.
+"/ self halt:'should not happen'.
             inGeneratorHolder value:(classes select:[:each | each notNil]).
         ]
     ].
@@ -1576,7 +1576,7 @@
             foundInSelection := true.
         ].
         (classes includes:nil) ifTrue:[
-self halt:'should not happen'.
+"/ self halt:'should not happen'.
             self selectedClasses value:(classes select:[:each | each notNil]).
         ]
     ].
@@ -1643,5 +1643,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.29 2008-02-27 12:25:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.30 2008-02-27 12:25:40 cg Exp $'
 ! !