--- a/Tools__NewSystemBrowser.st	Sat Jul 18 06:37:22 2015 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Jul 21 06:55:36 2015 +0200
@@ -11385,13 +11385,13 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasMethodSelectedHolder
             label: 'Compare'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11444,7 +11444,7 @@
           )
          (MenuItem
             label: 'Generate'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11512,7 +11512,7 @@
           )
          (MenuItem
             label: 'Special'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11531,7 +11531,7 @@
                (MenuItem
                   label: 'Select'
                   isVisible: false
-                  submenu:
+                  submenu: 
                  (Menu
                     (
                      (MenuItem
@@ -11603,6 +11603,11 @@
                   label: '-'
                 )
                (MenuItem
+                  enabled: hasMethodSelected
+                  label: 'Copy Message Representation to Clipboard'
+                  itemValue: selectorMenuCopyMessageRepresentation
+                )
+               (MenuItem
                   enabled: hasMethodsInList
                   label: 'Copy List to Clipboard'
                   itemValue: methodListMenuCopyList
@@ -46814,6 +46819,27 @@
     self selectorMenuMoveOrCopy:#copy
 !
 
+selectorMenuCopyMessageRepresentation
+    "copy the selectes methods whoString to the clipboard"
+
+    |messageString|
+
+    messageString := String streamContents:[:writeStream|
+        self selectedMethodsDo:[:eachMethod|
+            writeStream 
+                nextPutAll:eachMethod whoString;
+                cr.
+        ].
+        writeStream position ~~ 0 ifTrue:[
+            writeStream backStep.    "eat trailing cr"
+        ].
+    ].
+
+    messageString notEmpty ifTrue:[
+        self window setClipboardText:messageString.
+    ]
+!
+
 selectorMenuDecompile
     "show selected methods bytecode"