--- a/SmalltalkChunkFileSourceWriter.st	Tue Sep 29 18:28:00 2009 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Tue Sep 29 19:20:13 2009 +0200
@@ -109,12 +109,13 @@
     "/         (RCS expands this string, so its size is not constant)
     "/
     collectionOfCategories := meta categories asSortedCollection.
+    versionMethods := meta methodDictionary values select:[:mthd | mthd isVersionMethod].
+
     collectionOfCategories notNil ifTrue:[
         "/
         "/ documentation first (if any), but not the version method
         "/
         (collectionOfCategories includes:'documentation') ifTrue:[
-            versionMethods := meta methodDictionary values select:[:mthd | mthd isVersionMethod].
 
             versionMethods do:[:versionMethod |
                 |source|
@@ -435,9 +436,9 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.10 2009-09-29 16:23:39 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.10 2009-09-29 16:23:39 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $'
 ! !