--- a/Tools_HierarchicalProjectList.st	Fri Mar 17 15:17:46 2006 +0100
+++ b/Tools_HierarchicalProjectList.st	Fri Mar 17 15:18:00 2006 +0100
@@ -367,14 +367,16 @@
 !
 
 enqueueDelayedAddPackage:package
-    NewSystemBrowser synchronousUpdate == true ifTrue:[
-	self addPackage:package.
-	^ self
+    (NewSystemBrowser synchronousUpdate == true
+    or:[ immediateUpdate value == true ])
+    ifTrue:[
+        self addPackage:package.
+        ^ self
     ].
     ^ self
-	enqueueMessage:#addPackage:
-	for:self
-	arguments:(Array with:package)
+        enqueueMessage:#addPackage:
+        for:self
+        arguments:(Array with:package)
 !
 
 update:something with:aParameter from:changedObject
@@ -513,5 +515,5 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.6 2006-03-14 13:12:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.7 2006-03-17 14:18:00 cg Exp $'
 ! !