--- a/CharacterArray.st	Tue Jul 01 00:09:33 1997 +0200
+++ b/CharacterArray.st	Tue Jul 01 00:54:03 1997 +0200
@@ -3854,7 +3854,7 @@
     start := 1.
     [start <= stop] whileTrue:[
         idx := self indexOf:$% startingAt:start.
-        idx == 0 ifTrue:[
+        (idx == 0 or:[idx == stop]) ifTrue:[
             ^ expandedString , (self copyFrom:start to:stop)
         ].
         "found a %"
@@ -3876,7 +3876,7 @@
      '%1 plus %2 gives %3 ' expandPlaceholdersWith:#(4 5 9) 
     "
 
-    "Modified: 27.4.1996 / 11:58:36 / cg"
+    "Modified: 1.7.1997 / 00:53:24 / cg"
 !
 
 withCRs
@@ -4754,6 +4754,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.121 1997-06-30 22:09:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.122 1997-06-30 22:54:03 cg Exp $'
 ! !
 CharacterArray initialize!