Index: tools/voice.pl
===================================================================
--- tools/voice.pl	(revision 18196)
+++ tools/voice.pl	(working copy)
@@ -270,7 +270,11 @@
             close(ESPEAK);
         }
         case "sapi" {
-            print({$$tts_object{"stdin"}} "SPEAK\t$output\t$string\r\n");
+            my $escape_string;
+            $escape_string = $string;
+            $escape_string =~ s/(.)/sprintf('%d,', ord($1))/eg;
+            chop($escape_string);
+            print({$$tts_object{"stdin"}} "SPEAK\t$output\t$escape_string\r\n");
         }
         case "swift" {
             $cmd = "swift $tts_engine_opts -o \"$output\" \"$string\"";
@@ -376,7 +380,7 @@
                     }
                     else {
                         voicestring($voice, $wav, $tts_engine_opts, $tts_object);
-                        wavtrim($wav, 500, $tts_object);
+                        # wavtrim($wav, 500, $tts_object);
                         # 500 seems to be a reasonable default for now
                     }