--- a/SortedCollection.st	Mon Sep 15 22:51:53 1997 +0200
+++ b/SortedCollection.st	Mon Sep 15 22:56:50 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:52:56 pm'                !
+
 OrderedCollection subclass:#SortedCollection
 	instanceVariableNames:'sortBlock'
 	classVariableNames:'DefaultSortBlock'
@@ -143,6 +145,29 @@
 
 !SortedCollection class methodsFor:'instance creation'!
 
+forStrings
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+    "Created: 13.9.1997 / 10:41:54 / cg"
+!
+
+forStrings:size
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new:size
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+!
+
 new
     "return a new sortedCollection, the sorting is done using
      a compare for a < b, in ascending order"
@@ -680,6 +705,6 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.34 1997-01-23 16:41:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.35 1997-09-15 20:56:49 cg Exp $'
 ! !
 SortedCollection initialize!