--- a/Tools__NewSystemBrowser.st	Fri Jul 17 11:18:03 2015 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Jul 20 19:01:57 2015 +0200
@@ -11359,13 +11359,13 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasMethodSelectedHolder
             label: 'Compare'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11418,7 +11418,7 @@
           )
          (MenuItem
             label: 'Generate'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11486,7 +11486,7 @@
           )
          (MenuItem
             label: 'Special'
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -11505,7 +11505,7 @@
                (MenuItem
                   label: 'Select'
                   isVisible: false
-                  submenu:
+                  submenu: 
                  (Menu
                     (
                      (MenuItem
@@ -11577,6 +11577,11 @@
                   label: '-'
                 )
                (MenuItem
+                  enabled: hasMethodSelected
+                  label: 'Copy Message Representation to Clipboard'
+                  itemValue: selectorMenuCopyMessageRepresentation
+                )
+               (MenuItem
                   enabled: hasMethodsInList
                   label: 'Copy List to Clipboard'
                   itemValue: methodListMenuCopyList
@@ -46721,6 +46726,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"