--- a/SeqColl.st	Tue Apr 16 13:28:43 1996 +0200
+++ b/SeqColl.st	Tue Apr 16 13:50:01 1996 +0200
@@ -487,6 +487,36 @@
 
 !SequenceableCollection methodsFor:'converting'!
 
+asStringWith:sepChar
+    "return a string generated by concatenating my elements 
+     (which must be strings or nil) and embedding sepChar characters in between.
+     Nil entries and empty strings are counted as empty lines."
+
+    ^ self asStringWith:sepChar from:1 to:(self size)
+!
+
+asStringWith:sepCharacter from:firstLine to:lastLine
+    "return part of myself as a string with embedded sepCharacters.
+     My elements must be strings or nil; nil entries and empty strings are
+     taken as empty lines."
+
+    ^ self 
+        asStringWith:sepCharacter 
+        from:firstLine 
+        to:lastLine
+        compressTabs:false
+        final:nil
+    "
+     creating entries for searchpath:
+
+     #('foo' 'bar' 'baz' '/foo/bar') asStringWith:$;   
+
+     #('foo' 'bar' 'baz' '/foo/bar') asStringWith:$: from:1 to:3   
+    "
+
+    "Modified: 23.2.1996 / 15:28:55 / cg"
+!
+
 asStringWith:sepCharacter from:firstLine to:lastLine compressTabs:compressTabs final:endCharacter
     "return part of myself as a string with embedded sepCharacters.
      My elements must be strings or nil; nil entries and empty strings are
@@ -2504,5 +2534,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SeqColl.st,v 1.53 1996-04-12 16:24:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SeqColl.st,v 1.54 1996-04-16 11:50:01 ca Exp $'
 ! !

--- a/SequenceableCollection.st	Tue Apr 16 13:28:43 1996 +0200
+++ b/SequenceableCollection.st	Tue Apr 16 13:50:01 1996 +0200
@@ -487,6 +487,36 @@
 
 !SequenceableCollection methodsFor:'converting'!
 
+asStringWith:sepChar
+    "return a string generated by concatenating my elements 
+     (which must be strings or nil) and embedding sepChar characters in between.
+     Nil entries and empty strings are counted as empty lines."
+
+    ^ self asStringWith:sepChar from:1 to:(self size)
+!
+
+asStringWith:sepCharacter from:firstLine to:lastLine
+    "return part of myself as a string with embedded sepCharacters.
+     My elements must be strings or nil; nil entries and empty strings are
+     taken as empty lines."
+
+    ^ self 
+        asStringWith:sepCharacter 
+        from:firstLine 
+        to:lastLine
+        compressTabs:false
+        final:nil
+    "
+     creating entries for searchpath:
+
+     #('foo' 'bar' 'baz' '/foo/bar') asStringWith:$;   
+
+     #('foo' 'bar' 'baz' '/foo/bar') asStringWith:$: from:1 to:3   
+    "
+
+    "Modified: 23.2.1996 / 15:28:55 / cg"
+!
+
 asStringWith:sepCharacter from:firstLine to:lastLine compressTabs:compressTabs final:endCharacter
     "return part of myself as a string with embedded sepCharacters.
      My elements must be strings or nil; nil entries and empty strings are
@@ -2504,5 +2534,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.53 1996-04-12 16:24:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.54 1996-04-16 11:50:01 ca Exp $'
 ! !