--- a/OrdColl.st	Fri Apr 19 12:43:20 1996 +0200
+++ b/OrdColl.st	Fri Apr 19 12:47:25 1996 +0200
@@ -86,16 +86,19 @@
 !
 
 at:anInteger put:anObject
-    "set the element at index, to be anInteger"
+    "set the element at index, to be anInteger.
+     Return anObject (sigh)."
 
     |idx|
 
     idx := anInteger + firstIndex - 1.
     ((anInteger < 1) or:[idx > lastIndex]) ifTrue:[
-	^ self subscriptBoundsError:anInteger
+        ^ self subscriptBoundsError:anInteger
     ] ifFalse:[
-	^ contentsArray at:idx put:anObject
+        ^ contentsArray at:idx put:anObject
     ]
+
+    "Modified: 19.4.1996 / 11:31:16 / cg"
 !
 
 first
@@ -1301,5 +1304,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.45 1996-04-13 12:21:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.46 1996-04-19 10:47:25 cg Exp $'
 ! !