--- a/SmalltalkChunkFileSourceWriter.st	Wed Jul 05 10:53:58 2017 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Wed Jul 05 10:54:12 2017 +0200
@@ -267,7 +267,7 @@
     "/         avoid sourcePosition-shifts when checked out later.
     "/         (RCS expands this string, so its size is not constant)
     "/
-    collectionOfCategories := meta categories asSortedCollection.
+    collectionOfCategories := meta methodCategories asSortedCollection.
 
     allMetaClassSelectors := meta methodDictionary keys.
     versionSelectors := allMetaClassSelectors select:[:selector | AbstractSourceCodeManager isVersionMethodSelector:selector ].
@@ -333,7 +333,7 @@
     "/
     "/ methods from all categories
     "/
-    collectionOfCategories := nonMeta categories asSortedCollection.
+    collectionOfCategories := nonMeta methodCategories asSortedCollection.
     collectionOfCategories notNil ifTrue:[
         collectionOfCategories do:[:aCategory |
             self fileOutCategory:aCategory of:nonMeta methodFilter:methodFilter on:outStream.
@@ -380,7 +380,7 @@
 
     "Created: / 15-11-1995 / 12:53:06 / cg"
     "Modified: / 01-04-1997 / 16:01:05 / stefan"
-    "Modified: / 29-09-2011 / 14:53:49 / cg"
+    "Modified: / 05-07-2017 / 10:53:16 / cg"
 !
 
 fileOutAllDefinitionsOf:aNonMetaClass on:aStream
@@ -429,13 +429,13 @@
 fileOutAllMethodsOf:aClass on:aStream methodFilter:methodFilter
     |collectionOfCategories|
 
-    collectionOfCategories := aClass class categories asSortedCollection.
+    collectionOfCategories := aClass class methodCategories asSortedCollection.
     collectionOfCategories notNil ifTrue:[
         collectionOfCategories do:[:aCategory |
             self fileOutCategory:aCategory of:aClass class  methodFilter:methodFilter on:aStream.
         ]
     ].
-    collectionOfCategories := aClass categories asSortedCollection.
+    collectionOfCategories := aClass methodCategories asSortedCollection.
     collectionOfCategories notNil ifTrue:[
         collectionOfCategories do:[:aCategory |
             self fileOutCategory:aCategory of:aClass methodFilter:methodFilter on:aStream.
@@ -446,8 +446,8 @@
         self fileOutAllMethodsOf:aClass on:aStream methodFilter:methodFilter
     ].
 
-    "Created: 15.10.1996 / 11:13:00 / cg"
-    "Modified: 22.3.1997 / 16:12:17 / cg"
+    "Created: / 15-10-1996 / 11:13:00 / cg"
+    "Modified: / 05-07-2017 / 10:52:04 / cg"
 !
 
 fileOutCategory:aCategory of:aClass except:skippedMethods only:savedMethods methodFilter:methodFilter on:aStream