--- a/SequenceableCollection.st	Thu Feb 12 21:40:14 2004 +0100
+++ b/SequenceableCollection.st	Thu Feb 12 22:26:33 2004 +0100
@@ -1862,10 +1862,10 @@
                 lineString hasChangeOfEmphasis ifTrue:[
                     needEmphasis := true
                 ].
-                (lineString bitsPerCharacter == 16) ifTrue:[
-                    any16Bit := true.
-                    stringClass := lineString class
-                ].
+            ].
+            (lineString bitsPerCharacter == 16) ifTrue:[
+                any16Bit := true.
+                stringClass := lineString string class.
             ].
             totalLength := totalLength + lineString size
         ].
@@ -6331,7 +6331,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.199 2003-12-03 22:53:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.200 2004-02-12 21:26:33 cg Exp $'
 ! !
 
 SequenceableCollection initialize!