--- a/PhoneticStringUtilities.st	Sun May 15 17:44:30 2016 +0200
+++ b/PhoneticStringUtilities.st	Sun May 15 17:56:18 2016 +0200
@@ -1029,6 +1029,7 @@
 
     "
      self new phoneticStringsFor:'hello'
+     self new phoneticStringsFor:'bliss'
     "
 ! !
 
@@ -1160,7 +1161,7 @@
     k := key copy.
      "1. Remove all 'S' and 'Z' chars from the end of the name"
     [
-        #( 'S' 'Z' ) includes:k last
+        'SZ' includes:k last
     ] whileTrue:[ k := k copyFrom:1 to:(k size - 1) ].
     ^ k
 !