--- a/CharacterArray.st	Sun Aug 30 12:49:21 2015 +0200
+++ b/CharacterArray.st	Sun Aug 30 14:16:59 2015 +0200
@@ -317,6 +317,7 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
+
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -360,6 +361,7 @@
     "
 ! !
 
+
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -765,6 +767,7 @@
     ^ Unicode32String
 ! !
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -4407,6 +4410,8 @@
 ! !
 
 
+
+
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -5752,6 +5757,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -6789,6 +6795,7 @@
     "
 ! !
 
+
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -6911,6 +6918,21 @@
     ^ self indexOfSubCollection: aString startingAt: 1 ifAbsent:[0]
 !
 
+indexOfString:aString startingAt:startIndex 
+    "VSE and V'age compatibility"
+    "find a substring. If found, return the index; if not found, return 0."
+
+    ^ self indexOfSubCollection:aString startingAt:startIndex ifAbsent:[0]
+!
+
+indexOfString:aString startingAt:startIndex ifAbsent:exceptionalValue 
+    "VSE and V'age compatibility"
+    "find a substring. 
+     If found, return the index; if not found, the value from exceptionalValue."
+
+    ^ self indexOfSubCollection:aString startingAt:startIndex ifAbsent:exceptionalValue
+!
+
 indexOfSubCollection:subString caseSensitive:caseSensitive
     "find a substring, starting at index. if found, return the index;
      if not found, return the result of evaluating exceptionBlock.
@@ -7452,6 +7474,7 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
+
 !CharacterArray class methodsFor:'documentation'!
 
 version