--- a/Tools__ProjectBuilderAssistantApplication.st	Mon Sep 10 00:07:24 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Sep 10 14:43:41 2012 +0200
@@ -2748,6 +2748,21 @@
     "Modified: / 06-09-2012 / 15:58:58 / cg"
 !
 
+delayedUpdate:something with:anArgument from:changedObject
+    changedObject == Smalltalk ifTrue:[
+        (something == #newClass
+        or:[something == #classRemove
+        or:[something == #projectOrganization]]) ifTrue:[
+            self updateListOfMatchingProjects.
+            self updateListOfNewProjectsName.
+            ^ self.
+        ].
+        ^ self.
+    ].
+
+    "Created: / 10-09-2012 / 14:07:47 / cg"
+!
+
 enterContentsSpecification
     |toAdd|
 
@@ -2841,13 +2856,14 @@
         (something == #newClass
         or:[something == #classRemove
         or:[something == #projectOrganization]]) ifTrue:[
-            self updateListOfMatchingProjects.
-            self updateListOfNewProjectsName.
+            self enqueueDelayedUpdate:something with:anArgument from:changedObject.
             ^ self.
         ].
         ^ self.
     ].
     super update:something with:anArgument from:changedObject
+
+    "Modified: / 10-09-2012 / 14:08:17 / cg"
 !
 
 updateApplicationComment