--- a/CharacterArray.st	Sat Aug 10 19:33:07 2019 +0200
+++ b/CharacterArray.st	Sun Aug 11 20:05:50 2019 +0200
@@ -4747,7 +4747,9 @@
     "if the receiver's size is less or equal to maxLen, return it.
      Otherwise, return a copy of the receiver, where some characters
      at the beginning have been replaced by '...' for a total string length
-     of maxLen. Can be used to abbreviate long entries in tables."
+     of maxLen. 
+     Can be used to abbreviate long entries in tables.
+     See also contractAtEndTo:, contractTo: and chopTo:"
 
     |sz|
 
@@ -4770,7 +4772,9 @@
     "if the receiver's size is less or equal to maxLen, return it.
      Otherwise, return a copy of the receiver, where some characters
      at the end have been replaced by '...' for a total string length
-     of maxLen. Can be used to abbreviate long entries in tables."
+     of maxLen. 
+     Can be used to abbreviate long entries in tables.
+     See also contractAtBeginningTo:, contractTo: and chopTo:"
 
     (self size <= maxLen) ifTrue:[ ^ self ].
 
@@ -4794,7 +4798,9 @@
      near the first quarter have been replaced by '...' for a total string length
      of maxLen.
      Very similar to contractTo:, but better to abbreviate long filename entries,
-     where the right part is of more use than the left."
+     where the right part is of more interest than the left.
+    See also contractAtBeginningTo:, contractAtEndTo:, contractTo: and chopTo:"
+
 
     |sz "{ SmallInteger }"
      halfSize quarterSize "{ SmallInteger }"
@@ -4823,7 +4829,9 @@
     "if the receiver's size is less or equal to maxLen, return it.
      Otherwise, return a copy of the receiver, where some characters
      in the middle have been replaced by '...' for a total string length
-     of maxLen. Can be used to abbreviate long entries in tables."
+     of maxLen. 
+     Can be used to abbreviate long entries in tables.
+    See also contractAtBeginningTo:, contractAtEndTo: and chopTo:"
 
     |sz "{ SmallInteger }" leftSize rightSize|