--- tkcon.tcl	Thu Apr  1 05:49:22 1999
+++ tkcon.tcl	Mon Jun 28 21:35:52 1999
@@ -1,6 +1,6 @@
 #!/bin/sh
 # \
-exec wish "$0" ${1+"$@"}
+if [ X$WISH != X ]; then exec $WISH "$0" -- "$@"; else exec wish8.4 "$0" -- "$@"; fi;
 
 #
 ## tkcon.tcl