--- a/CharacterArray.st	Fri Jun 29 11:40:24 2018 +0200
+++ b/CharacterArray.st	Fri Jun 29 11:42:52 2018 +0200
@@ -2370,6 +2370,7 @@
 !
 
 after:aString
+    <resource: #obsolete>
     "Compare the receiver with the argument and return true if the
      receiver should come after the argument in a sorted list.
      Otherwise return false.
@@ -2379,9 +2380,13 @@
             Currently it is for Strings, but not for UnicodeStrings...
 
      STUPID:
-        #after has a completely different meaning in SeqColl ..."
+        #after has a completely different meaning in SeqColl...
+        ... therefore it is marked as obsolete.    
+    "
 
     ^ (self compareCollatingWith:aString) > 0
+
+    "Modified (comment): / 29-06-2018 / 11:41:33 / Claus Gittinger"
 !
 
 compareAsVersionNumberWith:aStringOrCollection