--- a/SourceCodeManagerUtilities.st	Fri Mar 22 14:30:43 2013 +0100
+++ b/SourceCodeManagerUtilities.st	Fri Mar 22 16:34:55 2013 +0100
@@ -807,10 +807,10 @@
     ].
 !
 
-sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManager
+sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManagerOrNil
     |s methodsSortedByName defClass|
 
-    s := '' writeStream.
+    s := WriteStream on:(String new:1000).
 
     s nextPutAll:'"{ Package: '''.
     s nextPutAll:aPackageID asString.
@@ -843,16 +843,18 @@
         s cr.
     ].
 
-    defClass := ProjectDefinition definitionClassForPackage:aPackageID.
-    defClass notNil ifTrue:[
-        "/ make sure, an extensionVersion_XXX method is included...
-        "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
-        (methodsSortedByName contains:[:aMethod | aMethod selector == scmManager nameOfVersionMethodForExtensions]) ifFalse:[
-            s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
-            s cr.
-            s nextChunkPut:
-                (scmManager versionMethodTemplateForSmalltalkFor:(scmManager nameOfVersionMethodForExtensions)).
-            s space; nextPutChunkSeparator.
+    scmManagerOrNil notNil ifTrue:[
+        defClass := ProjectDefinition definitionClassForPackage:aPackageID.
+        defClass notNil ifTrue:[
+            "/ make sure, an extensionVersion_XXX method is included...
+            "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
+            (methodsSortedByName contains:[:aMethod | aMethod selector == scmManagerOrNil nameOfVersionMethodForExtensions]) ifFalse:[
+                s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
+                s cr.
+                s nextChunkPut:
+                    (scmManagerOrNil versionMethodTemplateForSmalltalkFor:(scmManagerOrNil nameOfVersionMethodForExtensions)).
+                s space; nextPutChunkSeparator; cr.
+            ].
         ].
     ].
 
@@ -3831,9 +3833,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.265 2013-03-22 15:34:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.265 2013-03-22 15:34:55 cg Exp $'
 ! !
+