diff -u -p -x configure -x autom4te.cache -x .DS_Store -r -N -x doc -x Makefile orig/xotcl-1.2.0/unix/xowish.in xotcl/unix/xowish.in
--- orig/xotcl-1.2.0/unix/xowish.in	Fri May 16 18:03:55 2003
+++ xotcl/unix/xowish.in	Thu Mar  4 23:27:20 2004
@@ -1,17 +1,24 @@
-#!@WISH_PROG@
-###!@TCLSH_PROG@
+#!/bin/sh
+# \
+exec wish "$0" ${1+"$@"}
+###exec tclsh "$0" ${1+"$@"}
 ###package require Tk
-if {$argc == 0} {
-  puts "Don't use [info script] as interactive shell! Use instead:"
-  puts "   @WISH_PROG@"
-  puts "   package require XOTcl; namespace import ::xotcl::*"
-  exit
-} else {
+if {$argc && [string equal -length \
+      [string length [lindex $argv 0]] [lindex $argv 0] "-file"]} {
+  set argv  [lreplace $argv 0 0]
+  incr argc -1
+}
+if {$argc && [string index [lindex $argv 0] 0] ne "-" } {
   package require XOTcl
   namespace import ::xotcl::*
   set argv0 [lindex $argv 0]
   set argv  [lreplace $argv 0 0]
   incr argc -1
   source $argv0
+} else {
+  puts "Don't use [info script] as interactive shell! Use instead:"
+  puts "   wish"
+  puts "   package require XOTcl; namespace import ::xotcl::*"
+  exit -1
 }
 ###catch {vwait forever}