--- 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 |