--- a/InspectorView.st	Fri Dec 02 14:19:36 2016 +0100
+++ b/InspectorView.st	Fri Dec 02 15:48:56 2016 +0100
@@ -2896,7 +2896,7 @@
             s nextPutAll:' ...'.
             ^ s contents.
         ].
-        s := someValue classNameWithArticle.
+        s := someValue class nameWithArticle.
         displayStringMessage == #displayString ifTrue:[
             s := s , ' "error in displayString: ' , ex description , '"'
         ] ifFalse:[