diff -Nru emacspeak-30.0.orig/sawfish/tts.jl emacspeak-30.0/sawfish/tts.jl
--- emacspeak-30.0.orig/sawfish/tts.jl	2008-10-03 02:43:53.000000000 +0200
+++ emacspeak-30.0/sawfish/tts.jl	2009-09-22 21:55:46.155356981 +0200
@@ -77,7 +77,7 @@
     (start-process tts-process tts-client tts-host
                    tts-port))
 
-(defvar tts-tcl "/usr/bin/tcl"
+(defvar tts-tcl "/usr/bin/tclsh"
 "TCL interpreter")
 
 (defvar tts-dtk
diff -Nru emacspeak-30.0.orig/servers/dtk-exp emacspeak-30.0/servers/dtk-exp
--- emacspeak-30.0.orig/servers/dtk-exp	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/dtk-exp	2009-09-22 21:56:40.843606312 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 # $Id: dtk-exp 5528 2008-03-15 02:06:50Z tv.raman.tv $
 # Description:  Interfacing to a Dectalk via TCL.
 # Keywords: Emacspeak, Dectalk, TCL
diff -Nru emacspeak-30.0.orig/servers/dtk-soft emacspeak-30.0/servers/dtk-soft
--- emacspeak-30.0.orig/servers/dtk-soft	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/dtk-soft	2009-09-22 21:56:45.651606389 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 # Keywords: Emacspeak, Software Dectalk , TCL
 # {{{ LCD Entry: 
 
diff -Nru emacspeak-30.0.orig/servers/espeak emacspeak-30.0/servers/espeak
--- emacspeak-30.0.orig/servers/espeak	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/espeak	2009-09-22 21:56:50.564356587 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 # Keywords: Emacspeak, eSpeak , TCL
 # {{{ LCD Entry: 
 
diff -Nru emacspeak-30.0.orig/servers/outloud emacspeak-30.0/servers/outloud
--- emacspeak-30.0.orig/servers/outloud	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/outloud	2009-09-22 21:56:55.596356226 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 # Keywords: Emacspeak, ViaVoice Outloud , TCL
 # {{{ LCD Entry: 
 
diff -Nru emacspeak-30.0.orig/servers/speech-server emacspeak-30.0/servers/speech-server
--- emacspeak-30.0.orig/servers/speech-server	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/speech-server	2009-09-22 21:57:00.539381225 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 # $Id: speech-server 4725 2007-07-02 02:12:26Z tv.raman.tv $
 # Description:  Speech server
 #Usage: tcl speech-server port device-specific-script
diff -Nru emacspeak-30.0.orig/servers/ssh-dtk-exp emacspeak-30.0/servers/ssh-dtk-exp
--- emacspeak-30.0.orig/servers/ssh-dtk-exp	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/ssh-dtk-exp	2009-09-22 21:57:45.190605920 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 #$Id: ssh-dtk-exp 5701 2008-07-20 17:51:31Z tv.raman.tv $
 #Description: Launch a TTS server on a remote host.
 #Copyright (C) 1995 -- 2007, T. V. Raman 
@@ -42,7 +42,7 @@
 }
     
 
-set tcl /usr/bin/tcl 
+set tcl /usr/bin/tclsh
 regsub {/ssh-}  $argv0 {/} tts
 puts stderr "Running <ssh $host -l $user -p $port   $tcl $tts>"
 exec     ssh -o StrictHostKeyChecking=no $host \
diff -Nru emacspeak-30.0.orig/servers/ssh-outloud emacspeak-30.0/servers/ssh-outloud
--- emacspeak-30.0.orig/servers/ssh-outloud	2008-10-03 02:43:51.000000000 +0200
+++ emacspeak-30.0/servers/ssh-outloud	2009-09-22 21:57:34.101606524 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
 #$Id: ssh-outloud 5700 2008-07-20 17:46:53Z tv.raman.tv $
 #Description: Launch a TTS server on a remote host.
 #Copyright (C) 1995 -- 2007, T. V. Raman 
@@ -42,7 +42,7 @@
 }
     
 
-set tcl /usr/bin/tcl 
+set tcl /usr/bin/tclsh
 regsub {/ssh-}  $argv0 {/} tts
 puts stderr "Running <ssh $host -l $user -p $port   $tcl $tts>"
 exec     ssh -o StrictHostKeyChecking=no $host \