--- a/ProjectBuilder.st Thu Mar 21 23:12:51 2013 +0100
+++ b/ProjectBuilder.st Thu Mar 21 23:26:48 2013 +0100
@@ -846,11 +846,13 @@
packageDef hasExtensionMethods ifTrue:[
extSource :=
String streamContents:[:s |
+ s nextPutAll:('"{ Package: ''%1'' }" !!\\' bindWith:packageDef package) withCRs.
+
packageDef extensionMethods do:[:eachMethod |
eachMethod mclass fileOutMethod:eachMethod on:s
].
].
- (packageTargetDir asFilename construct:'extensions.st') contents:extSource
+ (packageTargetDir asFilename construct:'extensions.st') contents:extSource
].
"/ (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls |