--- a/Array.st	Fri Nov 20 21:19:43 2015 +0100
+++ b/Array.st	Fri Nov 20 21:20:24 2015 +0100
@@ -1771,6 +1771,8 @@
 !Array methodsFor:'printing & storing'!
 
 displayStringName
+    "redefinable helper for displayString"
+
     |cls|
     
     ((cls := self class) == Array or:[cls == ImmutableArray]) ifTrue:[