--- a/SequenceableCollectionSorter.st	Sat May 18 09:49:35 1996 +0200
+++ b/SequenceableCollectionSorter.st	Sat May 18 17:33:04 1996 +0200
@@ -27,7 +27,7 @@
     a := #(10 5 2 17 5 99 -5).
     sorter := SequenceableCollectionSorter on:a.
     sorter sort.
-    Transcript showCr:a printString
+    Transcript showCR:a printString
 "
 ! !
 
@@ -251,6 +251,6 @@
 !SequenceableCollectionSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.3 1996-02-06 19:07:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.4 1996-05-18 15:32:50 cg Exp $'
 ! !
 SequenceableCollectionSorter initialize!