--- a/Structure.st	Thu Dec 08 04:52:03 2016 +0000
+++ b/Structure.st	Thu Dec 08 10:54:40 2016 +0100
@@ -1408,6 +1408,9 @@
     sel == #classNameWithArticle ifTrue:[
          ^ self displayString
     ].
+    sel == #nameWithArticle ifTrue:[
+         ^ 'a Structure'
+    ].
     (sel == #allSubclasses or:[sel == #subclasses]) ifTrue:[
         ^ #()
     ].