--- a/Tools__NewSystemBrowser.st	Wed Jan 20 23:57:35 2016 +0000
+++ b/Tools__NewSystemBrowser.st	Thu Jan 21 06:47:58 2016 +0100
@@ -3524,6 +3524,7 @@
              translateLabel: false
              hasScrollButtons: true
              destroyTabAction: destroyTab:
+             "/ addTabAction: createBuffer
              canvas: browserPageCanvas
              canvasInset: 0
              keepCanvasAlive: true
@@ -46187,13 +46188,24 @@
         dontDoIt := false.
         selectorToCopyOrMove := methodToCopyOrMove selector.
         (newClass includesSelector:selectorToCopyOrMove) ifTrue:[
+            |sourceCode|
+            
+            sourceCode := (newClass sourceCodeAt:selectorToCopyOrMove).
+            sourceCode := ('The overwritten method is:\\' withCRs , sourceCode) asStringCollection.
+            sourceCode size > 10 ifTrue:[
+                sourceCode := sourceCode copyTo:10.
+                sourceCode := sourceCode , '... <more code here> ...'.
+            ].    
+            sourceCode := (sourceCode asString) allItalic.
+
             question := (doWhat == #copy)
-                    ifTrue:['%1 already implements #%2\\Copy anyway ?']
-                    ifFalse:['%1 already implements #%2\\Move anyway ?'].
+                    ifTrue:['%1 already implements #%2\%3\Copy anyway ?']
+                    ifFalse:['%1 already implements #%2\%3\Move anyway ?'].
 
             (self confirm:(resources string:question
                                       with:newClass name allBold
-                                      with:selectorToCopyOrMove) withCRs) ifFalse:[
+                                      with:selectorToCopyOrMove
+                                      with:sourceCode) withCRs) ifFalse:[
                 dontDoIt := true
             ]
         ] ifFalse:[