--- a/ProjectDefinition.st	Wed Mar 27 13:23:25 2013 +0100
+++ b/ProjectDefinition.st	Wed Mar 27 15:07:20 2013 +0100
@@ -952,6 +952,22 @@
     ].
 
     self classNamesAndAttributes:newSpec usingCompiler:compilerOrNil
+!
+
+updateExtensionMethodNamesUsingCompiler:compilerOrNil
+    "set the set of extension methods
+     Because this requires compilation of my extensionMethodNames-method, 
+     a compiler can be passed in, which has to do the job.
+     (this is used by the systembrowser to pass in a CodeGeneratorTool with undo support)"
+
+    |newCode|
+
+    newCode := self extensionMethodNames_code.
+
+    (compilerOrNil ? self compilerClass)
+        compile:newCode
+        forClass:self theMetaclass
+        inCategory:'description - contents'.
 ! !
 
 !ProjectDefinition class methodsFor:'accessing - tests'!
@@ -7129,11 +7145,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.441 2013-03-27 12:23:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.442 2013-03-27 14:07:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.441 2013-03-27 12:23:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.442 2013-03-27 14:07:20 cg Exp $'
 !
 
 version_SVN