--- a/Tools_ClassGeneratorList.st	Wed Aug 23 17:36:13 2006 +0200
+++ b/Tools_ClassGeneratorList.st	Wed Aug 23 19:33:29 2006 +0200
@@ -261,11 +261,8 @@
         orgMode := organizerMode value.
 
         orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
-            something == #organization ifTrue:[
-                self updateList.
-                ^ self
-            ].
-            something == #newClass ifTrue:[
+            (something == #organization 
+             or:[something == #newClass]) ifTrue:[
                 self updateList.
                 ^ self
             ].
@@ -274,13 +271,8 @@
             ^ self.
         ].
         orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
-            something == #newClass ifTrue:[
-                aParameter isNameSpace ifTrue:[
-                    self updateList
-                ].
-                ^ self
-            ].
-            something == #classRemove ifTrue:[
+            (something == #newClass 
+            or:[something == #classRemove]) ifTrue:[
                 aParameter isNameSpace ifTrue:[
                     self updateList
                 ].
@@ -545,5 +537,5 @@
 !ClassGeneratorList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.6 2006-03-27 17:10:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.7 2006-08-23 17:33:29 cg Exp $'
 ! !