--- a/AbstractOperatingSystem.st	Fri Jul 19 17:36:16 2019 +0200
+++ b/AbstractOperatingSystem.st	Fri Jul 19 21:32:37 2019 +0200
@@ -6840,11 +6840,12 @@
 
     (voiceName isNil or:[voiceName = 'default']) ifTrue:[
         voiceUsed := DefaultVoice
-    ].  
-    voiceUsed isNil ifTrue:[
-        mapping := self voiceMapping detect:[:v | v key = voiceName] ifNone:[(voiceName -> voiceName)].
-        voiceUsed := mapping value.
-    ].
+    ] ifFalse:[
+        voiceUsed := voiceName
+    ].    
+    mapping := self voiceMapping detect:[:v | v key = voiceUsed] ifNone:[(voiceName -> voiceName)].
+    voiceUsed := mapping value.
+
     self voiceCommandSpec triplesDo:[:cmd :cmdLineForDefaultVoice :cmdLineForVoice |
         |cmdLine|
         
@@ -6871,6 +6872,7 @@
 
     non-portable (OSX only):     
      OperatingSystem speak:'hello world - this is a scottish female voice' voiceName:'Fiona'
+     OperatingSystem speak:'hello world - this is an irish female voice' voiceName:'Moira'
      OperatingSystem speak:'hello world - this is a german female voice' voiceName:'Anna'
      OperatingSystem speak:'hello world - this is a chinese female voice' voiceName:'Ting-Ting'
      OperatingSystem speak:'hello world - this is an indian female voice' voiceName:'Veena'
@@ -6880,9 +6882,19 @@
 
      OperatingSystem speak:'hello world - this is a pipe organ speaking' voiceName:'Pipe Organ'
      OperatingSystem speak:'hello world - happy birthday to you' voiceName:'Good News'
-    "
-
-    "Modified (comment): / 29-08-2018 / 09:42:07 / Claus Gittinger"
+     OperatingSystem speak:'hello world - this is fred' voiceName:'Fred'
+     OperatingSystem speak:'hello world - this is awsome' voiceName:'Hysterical'
+
+     DefaultVoice := 'Fiona'
+     DefaultVoice := 'Miora'
+     DefaultVoice := 'Amelie'
+     DefaultVoice := 'Anna'
+     DefaultVoice := 'Alex'
+     OperatingSystem voiceMapping
+     OperatingSystem voiceInfo
+    "
+
+    "Modified (comment): / 19-07-2019 / 21:29:50 / Claus Gittinger"
 !
 
 voiceCommandSpec