--- a/Method.st	Wed Jul 17 19:53:46 2019 +0200
+++ b/Method.st	Thu Jul 18 07:50:55 2019 +0200
@@ -3064,15 +3064,31 @@
      If the source is available, correct argument names will be presented;
      otherwise, synthetic names are generated"
 
+    ^ self methodDefinitionTemplateForSelector:self selector
+
+    "
+      (self compiledMethodAt:#printOn:) methodDefinitionTemplate
+      (self compiledMethodAt:#printOn:) methodDefinitionTemplateForSelector:'newSel:'
+    "
+
+    "Modified (comment): / 18-07-2019 / 07:50:37 / Claus Gittinger"
+!
+
+methodDefinitionTemplateForSelector:aSelector
+    "return the string that would define the method and the arguments,
+     iff the selected was aSelector; i.e. the methodSpec in the source.
+     If the source is available, correct argument names will be presented;
+     otherwise, synthetic names are generated"
+
     ^ self class
-        methodDefinitionTemplateForSelector:self selector
+        methodDefinitionTemplateForSelector:aSelector
         andArgumentNames:self methodArgNames
 
     "
       (self compiledMethodAt:#printOn:) methodDefinitionTemplate
     "
 
-    "Modified (comment): / 25-06-2019 / 10:11:13 / Claus Gittinger"
+    "Created: / 18-07-2019 / 07:50:09 / Claus Gittinger"
 !
 
 methodInvocationInfo