--- a/Tools_ProjectList.st	Mon Mar 27 09:33:01 2006 +0200
+++ b/Tools_ProjectList.st	Mon Mar 27 19:09:59 2006 +0200
@@ -474,13 +474,13 @@
     |mode|
 
     mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
-    mode == #project ifTrue:[^ false].
+    mode == OrganizerCanvas organizerModeProject ifTrue:[^ false].
     mode isNil ifTrue:[^ false].
     ^ true
 !
 
 initialOrganizerMode
-    ^ #project
+    ^ OrganizerCanvas organizerModeProject
 !
 
 listOfProjects
@@ -619,5 +619,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.7 2006-03-16 20:16:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.8 2006-03-27 17:09:59 cg Exp $'
 ! !