--- a/SortedCollection.st	Thu Apr 25 18:12:44 1996 +0200
+++ b/SortedCollection.st	Thu Apr 25 18:20:46 1996 +0200
@@ -52,6 +52,9 @@
     Thus a sortBlock of [:a :b | a < b] defines ascending sort-order,
     while [:a :b | a > b] defines descening order.
     The default sortBlock for SortedCollections is the first one.
+
+    [author:]
+        Claus Gittinger
 "
 !
 
@@ -714,6 +717,6 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.30 1996-04-13 13:29:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.31 1996-04-25 16:15:56 cg Exp $'
 ! !
 SortedCollection initialize!