--- a/Class.st	Sun Mar 03 23:01:24 2019 +0100
+++ b/Class.st	Sun Mar 03 23:08:07 2019 +0100
@@ -1973,7 +1973,6 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
-
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -3235,26 +3234,26 @@
     aStream nextPutAll:'  <inst-vars>'.
     varNames := self instVarNames.
     varNames size > 0 ifTrue:[
-	aStream cr.
-	varNames do:[:nm |
-	    aStream nextPutAll:'    <name>'.
-	    aStream nextPutAll:nm.
-	    aStream nextPutLine:'</name>'.
-	].
-	aStream nextPutAll:'  '.
+        aStream cr.
+        varNames do:[:nm |
+            aStream nextPutAll:'    <name>'.
+            aStream nextPutAll:nm.
+            aStream nextPutLine:'</name>'.
+        ].
+        aStream nextPutAll:'  '.
     ].
     aStream nextPutLine:'</inst-vars>'.
 
     aStream nextPutAll:'  <class-inst-vars>'.
     varNames := self class instVarNames.
     varNames size > 0 ifTrue:[
-	aStream cr.
-	varNames do:[:nm |
-	    aStream nextPutAll:'    <name>'.
-	    aStream nextPutAll:nm.
-	    aStream nextPutLine:'</name>'.
-	].
-	aStream nextPutAll:'  '.
+        aStream cr.
+        varNames do:[:nm |
+            aStream nextPutAll:'    <name>'.
+            aStream nextPutAll:nm.
+            aStream nextPutLine:'</name>'.
+        ].
+        aStream nextPutAll:'  '.
     ].
     aStream nextPutLine:'</class-inst-vars>'.
 
@@ -3263,21 +3262,23 @@
     aStream nextPutLine:'</imports>'.
 
     aStream nextPutAll:'  <category>'.
-    aStream nextPutAll:self category.
+    aStream nextPutAll:(self category ? '* no category *').
     aStream nextPutLine:'</category>'.
 
     aStream nextPutLine:'</class>'.
 
     self classVarNames do:[:nm |
-	aStream nextPutLine:'<static>'.
-	aStream nextPutAll:' <name>'.
-	aStream nextPutAll:nm.
-	aStream nextPutLine:'</name>'.
-	aStream nextPutAll:' <environment>'.
-	aStream nextPutAll:self name.
-	aStream nextPutLine:'</environment>'.
-	aStream nextPutLine:'</static>'.
+        aStream nextPutLine:'<static>'.
+        aStream nextPutAll:' <name>'.
+        aStream nextPutAll:nm.
+        aStream nextPutLine:'</name>'.
+        aStream nextPutAll:' <environment>'.
+        aStream nextPutAll:self name.
+        aStream nextPutLine:'</environment>'.
+        aStream nextPutLine:'</static>'.
     ].
+
+    "Modified: / 03-03-2019 / 22:26:08 / Claus Gittinger"
 !
 
 fileOutXMLOn:aStream