--- a/Tools_NamespaceList.st	Thu Mar 16 21:16:39 2006 +0100
+++ b/Tools_NamespaceList.st	Thu Mar 16 21:16:45 2006 +0100
@@ -390,7 +390,10 @@
 !NamespaceList methodsFor:'private'!
 
 defaultSlaveModeValue
-    self topApplication initialOrganizerMode == #namespace ifTrue:[^ false].
+    |mode|
+
+    mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
+    mode == #namespace ifTrue:[^ false].
 "/    self organizerMode value == #category ifTrue:[^ true].
 "/    ^ false
     ^ true
@@ -484,5 +487,5 @@
 !NamespaceList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.4 2006-03-13 13:37:02 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.5 2006-03-16 20:16:45 cg Exp $'
 ! !