--- a/SystemOrganizer.st	Sun Mar 03 14:32:56 2019 +0100
+++ b/SystemOrganizer.st	Sun Mar 03 23:00:03 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 eXept Software AG
               All Rights Reserved
@@ -93,10 +95,7 @@
 
         aClass isMeta ifFalse:[
             aClass isNameSpace ifFalse:[
-                cat := aClass category.
-                cat isNil ifTrue:[
-                    cat := '* no category *'
-                ].
+                cat := aClass category ? '* no category *'.
                 cat ~= 'obsolete' ifTrue:[
                     categorySet add:cat
                 ]
@@ -129,7 +128,8 @@
      (SystemOrganizer for:Demos) categories 
     "
 
-    "Modified: / 21.8.2001 / 15:24:10 / cg"
+    "Modified: / 21-08-2001 / 15:24:10 / cg"
+    "Modified: / 03-03-2019 / 22:31:26 / Claus Gittinger"
 !
 
 categoryOfElement:aClassName