--- a/CharacterArray.st	Sat Mar 01 16:34:40 2014 +0100
+++ b/CharacterArray.st	Sat Mar 01 16:47:40 2014 +0100
@@ -725,6 +725,7 @@
 
 
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -1410,15 +1411,20 @@
     "
 !
 
-subStrings:separatorCharacter
+subStrings:separatorCharacterOrString
     "return an array consisting of all words contained in the receiver.
      Words are separated by separatorCharacter.
      This has been added for VisualAge compatibility."
 
-    ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
-
-    "
-     'foo:bar:baz:smalltalk' subStrings:$:
+    separatorCharacterOrString isCharacter ifTrue:[
+        ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacterOrString
+    ].
+    ^ self asCollectionOfSubstringsSeparatedByAny:separatorCharacterOrString
+
+    "
+     'foo:bar:baz:smalltalk' subStrings:$: 
+     'foo:bar:baz:smalltalk' subStrings:':'
+     'foo.bar,baz-smalltalk' subStrings:'.,-'
     "
 !
 
@@ -6925,11 +6931,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.524 2014-03-01 15:02:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.525 2014-03-01 15:47:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.524 2014-03-01 15:02:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.525 2014-03-01 15:47:40 cg Exp $'
 ! !