--- a/Tools__HierarchicalClassCategoryList.st	Sun Mar 03 22:58:43 2019 +0100
+++ b/Tools__HierarchicalClassCategoryList.st	Sun Mar 03 22:59:29 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -185,10 +187,10 @@
     |anchor|
 
     self categoryList value isNil ifTrue:[
-	self updateList.
-	self categoryList value isNil ifTrue:[
-	    ^ nil.
-	]
+        self updateList.
+        self categoryList value isNil ifTrue:[
+            ^ nil.
+        ]
     ].
 
     anchor := ClassCategoryItem new.
@@ -199,15 +201,21 @@
     categoryToItemDictionary at:'' asSymbol put:anchor.
 
     self categoryList value do:[:eachCategory |
-	(categoryToItemDictionary includesKey:eachCategory) ifFalse:[
-	    self addCategory:eachCategory 
-	].
+        (categoryToItemDictionary includesKey:eachCategory) ifFalse:[
+            self addCategory:eachCategory 
+        ].
     ].
 
-    anchor recursiveSortChildren:[:i1 :i2 | i1 category asLowercase < i2 category asLowercase].
+    anchor 
+        recursiveSortChildren:[:i1 :i2 | 
+                (i1 category ? '* no category *') asLowercase 
+                < (i2 category ? '* no category *') asLowercase
+        ].
     anchor expand.
 
     ^ anchor
+
+    "Modified: / 03-03-2019 / 22:32:53 / Claus Gittinger"
 !
 
 hierarchicalCategoryList
@@ -404,10 +412,10 @@
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassCategoryList.st,v 1.13 2014-11-19 21:41:19 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassCategoryList.st,v 1.13 2014-11-19 21:41:19 cg Exp $'
+    ^ '$Header$'
 ! !