--- a/Tools_NamespaceList.st	Mon Mar 27 19:10:12 2006 +0200
+++ b/Tools_NamespaceList.st	Mon Mar 27 19:10:15 2006 +0200
@@ -393,14 +393,14 @@
     |mode|
 
     mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
-    mode == #namespace ifTrue:[^ false].
-"/    self organizerMode value == #category ifTrue:[^ true].
+    mode == OrganizerCanvas organizerModeNamespace ifTrue:[^ false].
+"/    self organizerMode value == OrganizerCanvas organizerModeCategory ifTrue:[^ true].
 "/    ^ false
     ^ true
 !
 
 initialOrganizerMode
-    ^ #namespace
+    ^ OrganizerCanvas organizerModeNamespace
 !
 
 listOfNamespaces
@@ -487,5 +487,5 @@
 !NamespaceList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.5 2006-03-16 20:16:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.6 2006-03-27 17:10:15 cg Exp $'
 ! !