--- a/CharacterArray.st	Sun Jul 28 12:20:32 2019 +0200
+++ b/CharacterArray.st	Sun Jul 28 12:21:14 2019 +0200
@@ -8981,31 +8981,6 @@
     "Modified: 30.6.1997 / 13:40:23 / cg"
 !
 
-withoutPrefix:aStringOrCharacter
-    "if the receiver startsWith aString, return a copy without it.
-     Otherwise return the receiver"
-
-    (self startsWith:aStringOrCharacter) ifTrue:[
-        aStringOrCharacter isCharacter ifTrue:[
-            ^ self copyFrom:2
-        ] ifFalse:[    
-            ^ self copyFrom:aStringOrCharacter size+1
-        ].
-    ].
-    ^ self
-
-    "
-     'helloworld' withoutPrefix:'hello'
-     'helloworld' withoutPrefix:'foo'
-     'helloworld' withoutPrefix:$h
-     'helloworld' withoutPrefix:#( $h )
-    "
-
-    "Modified: / 30-04-2016 / 10:01:00 / cg"
-    "Modified: / 31-07-2018 / 17:05:36 / Claus Gittinger"
-    "Modified (comment): / 24-05-2019 / 09:22:54 / Claus Gittinger"
-!
-
 withoutPrefix:aStringOrCharacter caseSensitive:caseSensitive
     "if the receiver startsWith aString, return a copy without it.
      Otherwise return the receiver"
@@ -9091,29 +9066,6 @@
     "
 !
 
-withoutSuffix:aStringOrCharacter
-    "if the receiver endsWith aString, return a copy without it.
-     Otherwise return the receiver"
-
-    (self endsWith:aStringOrCharacter) ifTrue:[
-        aStringOrCharacter isCharacter ifTrue:[
-            ^ self copyButLast:1
-        ] ifFalse:[
-            ^ self copyButLast:aStringOrCharacter size
-        ].
-    ].
-    ^ self
-
-    "
-     'helloworld' withoutSuffix:'world'
-     'helloworld' withoutSuffix:'foo'
-     'helloworldx' withoutSuffix:$x
-    "
-
-    "Created: / 23-10-2017 / 15:01:37 / cg"
-    "Modified: / 31-07-2018 / 17:06:34 / Claus Gittinger"
-!
-
 withoutSuffix:aStringOrCharacter caseSensitive:caseSensitive
     "if the receiver endsWith aString, return a copy without it.
      Otherwise return the receiver"