--- a/SequenceableCollection.st	Fri Aug 15 21:44:50 1997 +0200
+++ b/SequenceableCollection.st	Mon Aug 18 12:34:45 1997 +0200
@@ -845,7 +845,7 @@
                 newString replaceFrom:pos with:lineString startingAt:idx.
                 newRuns notNil ifTrue:[
                     lineString hasChangeOfEmphasis ifTrue:[
-                        idx to:lineString size do:[
+                        idx to:lineString size do:[:pos |
                             newRuns add:(lineString emphasisAt:pos)
                         ]    
                     ] ifFalse:[
@@ -943,7 +943,7 @@
           final:(Character cr) 
     "
 
-    "Modified: 22.9.1996 / 17:35:23 / cg"
+    "Modified: 16.8.1997 / 04:44:46 / cg"
 !
 
 asStringWithCRs
@@ -3007,5 +3007,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.81 1997-05-01 19:58:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.82 1997-08-18 10:34:45 cg Exp $'
 ! !