--- a/ClassDescription.st	Sun Mar 03 19:46:17 2019 +0100
+++ b/ClassDescription.st	Sun Mar 03 23:01:24 2019 +0100
@@ -683,7 +683,6 @@
     ^ Dolphin::SourceManager default
 ! !
 
-
 !ClassDescription methodsFor:'Compatibility-ST80'!
 
 addInstVarName:anotherInstVar
@@ -2458,7 +2457,7 @@
         aStream nextPutAll:' methodsFor:'.
     ].
 
-    cat := aMethod category ? ''.
+    cat := aMethod category ? '* no category *'.
     aStream nextPutAll:cat asString storeString.
     aStream nextPutChunkSeparator; cr; cr.
 
@@ -2476,10 +2475,11 @@
     aStream nextPutChunkSeparator.
     aStream cr
 
-    "Modified: 27.8.1995 / 01:23:19 / claus"
-    "Modified: 12.6.1996 / 11:44:41 / stefan"
-    "Modified: 15.11.1996 / 11:32:43 / cg"
-    "Created: 2.4.1997 / 00:24:33 / stefan"
+    "Modified: / 27-08-1995 / 01:23:19 / claus"
+    "Modified: / 12-06-1996 / 11:44:41 / stefan"
+    "Modified: / 15-11-1996 / 11:32:43 / cg"
+    "Created: / 02-04-1997 / 00:24:33 / stefan"
+    "Modified: / 03-03-2019 / 22:26:47 / Claus Gittinger"
 !
 
 fileOutMethods:methods on:aStream
@@ -2571,7 +2571,7 @@
     aStream nextPutAll:self name.
     aStream nextPutLine:'</class-id>'.
     aStream nextPutAll:'  <category>'.
-    aStream nextPutAll:(aMethod category ?'').
+    aStream nextPutAll:(aMethod category ? '* no category *').
     aStream nextPutLine:'</category>'.
 
     privacy ~~ #public ifTrue:[
@@ -2591,6 +2591,8 @@
         aStream nextPutLine:'  </body>'.
     ].
     aStream nextPutLine:'</methods>'.
+
+    "Modified: / 03-03-2019 / 22:27:06 / Claus Gittinger"
 ! !
 
 !ClassDescription methodsFor:'initialization'!