--- a/CharacterArray.st	Wed Nov 30 10:25:34 2016 +0000
+++ b/CharacterArray.st	Sat Dec 03 10:09:23 2016 +0000
@@ -2475,7 +2475,7 @@
     (s := self string) ~~ self ifTrue:[
         ^ s endsWith:aStringOrCharacter
     ].
-    (self size > 0 and:[aStringOrCharacter isCharacter]) ifTrue:[
+    (self size ~~ 0 and:[aStringOrCharacter isCharacter]) ifTrue:[
         ^ self last = aStringOrCharacter
     ].
     ^ super endsWith:aStringOrCharacter
@@ -3009,7 +3009,7 @@
     |s|
 
     aStringOrCharacter isCharacter ifTrue:[
-        ^ (self size > 0) and:[ (self at:1) == aStringOrCharacter ]
+        ^ (self size ~~ 0) and:[ (self at:1) == aStringOrCharacter ]
     ].
     (s := self string) ~~ self ifTrue:[
         ^ s startsWith:aStringOrCharacter