--- a/Tools_ProjectList.st	Thu Mar 16 19:42:07 2006 +0100
+++ b/Tools_ProjectList.st	Thu Mar 16 21:16:39 2006 +0100
@@ -471,10 +471,11 @@
 !ProjectList methodsFor:'private'!
 
 defaultSlaveModeValue
-    |org|
+    |mode|
 
-    (org := self topApplication initialOrganizerMode) == #project ifTrue:[^ false].
-    org isNil ifTrue:[^ false].
+    mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
+    mode == #project ifTrue:[^ false].
+    mode isNil ifTrue:[^ false].
     ^ true
 !
 
@@ -618,5 +619,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.6 2006-03-06 18:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.7 2006-03-16 20:16:39 cg Exp $'
 ! !