--- a/CharacterArray.st	Fri Mar 07 23:06:58 2014 +0100
+++ b/CharacterArray.st	Fri Mar 07 23:07:07 2014 +0100
@@ -283,6 +283,7 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
+
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -326,6 +327,7 @@
     "
 ! !
 
+
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -360,7 +362,7 @@
     sStart := start.
     sStop := stop.
 
-    [true] whileTrue:[
+    [
 "/ Transcript showCR:('match: ''' , (aString copyFrom:sStart to:sStop) ,
 "/                    ''' against:' , (matchScanArray copyFrom:mStart to:mStop) printString).
 
@@ -431,7 +433,7 @@
                             nextMatchEntry := matchScanArray at:mStart+1.
                             nextMatchEntry isCharacter ifTrue:[
                                 sStart <= sStop ifTrue:[
-                                    [true] whileTrue:[
+                                    [
                                         caseSensitive ifTrue:[
                                             index := aString indexOf:nextMatchEntry startingAt:sStart
                                         ] ifFalse:[
@@ -452,7 +454,7 @@
                                             ^ true
                                         ].
                                         sStart := index + 1.
-                                    ]
+                                    ] loop.
                                 ]
                             ]
                         ].
@@ -518,7 +520,7 @@
                 ]
             ]
         ]
-    ].
+    ] loop.
 
     "
      |scanArray s|
@@ -723,6 +725,7 @@
     ^ self == CharacterArray
 ! !
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -1667,13 +1670,13 @@
         specialChars at:specialChars size put:escape
     ].
 
-    [true] whileTrue:[
+    [
         idx := self indexOfAny:specialChars startingAt:idx.
         idx == 0 ifTrue:[^ false].
         (self at:idx) == escape ifFalse:[^ true].
         idx := idx + 2.
         idx > sz ifTrue:[^ false].
-    ].
+    ] loop.
 
     "
      '*foo' includesUnescapedMatchCharacters
@@ -4087,6 +4090,8 @@
 ! !
 
 
+
+
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -4770,6 +4775,7 @@
 ! !
 
 
+
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -5398,6 +5404,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 expandPlaceholders:escapeCharacter with:argArrayOrDictionary
@@ -6342,6 +6349,7 @@
     "
 ! !
 
+
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -6887,7 +6895,7 @@
     coll := OrderedCollection new.
     idx1 := 1.
     sz := self size.
-    [true] whileTrue:[
+    [
         idx2 := self indexOf:$: startingAt:idx1.
         (idx2 == 0 or:[idx2 == sz]) ifTrue:[
             coll add:(self copyFrom:idx1).
@@ -6895,7 +6903,7 @@
         ].
         coll add:(self copyFrom:idx1 to:idx2).
         idx1 := idx2 + 1
-    ].
+    ] loop.
 
     "
      'foo:' partsIfSelector            
@@ -6924,14 +6932,15 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
+
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.528 2014-03-05 11:38:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.529 2014-03-07 22:07:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.528 2014-03-05 11:38:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.529 2014-03-07 22:07:07 stefan Exp $'
 ! !