--- a/Tools_HierarchicalClassList.st	Mon Mar 27 19:10:19 2006 +0200
+++ b/Tools_HierarchicalClassList.st	Mon Mar 27 19:10:34 2006 +0200
@@ -207,7 +207,7 @@
 !
 
 defaultSlaveModeValue
-    self organizerMode value == #category ifTrue:[^ true].
+    self organizerMode value == OrganizerCanvas organizerModeCategory ifTrue:[^ true].
     ^ false
 !
 
@@ -270,7 +270,7 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.3 2005-02-02 11:01:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.4 2006-03-27 17:10:34 cg Exp $'
 ! !
 
 HierarchicalClassList initialize!