--- a/MessageNode.st	Wed Mar 08 11:45:59 2017 +0100
+++ b/MessageNode.st	Wed Mar 08 12:02:21 2017 +0100
@@ -475,12 +475,17 @@
         shortName := (Class nameWithoutPrefix:fullName) asSymbolIfInterned.
         (shortName ~= fullName and:[shortName notNil]) ifTrue:[
             (Smalltalk includesKey:shortName) ifTrue:[
-                ^ 'Possible name conflict (local ',shortName,' vs. Smalltalk::',shortName,')'
+                ^ '\Possible name conflict: local "%1" vs. "Smalltalk::%1"\The value here is %2.\The value in Smalltalk is %3.' 
+                    bindWith:shortName
+                    with:(Smalltalk at:fullName asSymbol) printString
+                    with:(Smalltalk at:shortName) printString.
             ].
         ].
     ].
 
     ^ nil.
+
+    "Modified: / 08-03-2017 / 12:01:46 / cg"
 !
 
 checkIdentityCompare