--- a/MessageNotUnderstood.st	Thu Feb 01 12:26:24 2018 +0100
+++ b/MessageNotUnderstood.st	Thu Feb 01 12:30:05 2018 +0100
@@ -162,7 +162,11 @@
           after changing a classes definition),
          and may be also redefined for non-Smalltalk object (i.e. BridgeObjects)"
 
-        description := searchClass displayString.
+        searchClass == self receiver class ifTrue:[
+            description := self receiver classDisplayString.
+        ] ifFalse:[
+            description := searchClass displayString.
+        ].
         description isString ifFalse:[
             description := '(** ???-class **)'
         ].
@@ -181,6 +185,8 @@
         (searchClass notNil and:[ searchClass programmingLanguage isSmalltalk ]) ifTrue:[
             description := description , ' does not understand nonSymbol: ' , sel printString.
             "/ description := sel printString, ' (nonSymbol) not understood by ' ,  description.
+        ] ifFalse:[
+            description := description , ' does not implement: ' , sel printString.
         ].
     ].