--- examples/tepam/tepam_demo.tcl.orig	Tue Jan 25 00:38:02 2011
+++ examples/tepam/tepam_demo.tcl	Tue Oct 18 09:15:23 2011
@@ -1,6 +1,7 @@
-#!/bin/sh
-# Evaluating the wish origin \
-exec `which wish` "$0" "$@"
+#! /bin/sh
+# the next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
 ##########################################################################
 # TEPAM - Tcl's Enhanced Procedure and Argument Manager
 ##########################################################################
@@ -161,6 +162,7 @@
          set OPT(slaveexit) "close"
       }
       # Search inside the *n.x envirement for TkCon ...
+      set TkConPath ""
       catch {set TkConPath [exec csh -f -c {which tkcon.tcl}]}
       # Search inide the Windows envirement for TkCon ...
       catch {
@@ -183,7 +185,7 @@
          }
          tkcon show
       } else {
-         if {$tcl_platform(platform)=={windows}} {
+         if {$::tcl_platform(platform)=={windows}} {
             console show
          } else {
             error "Cannot source tkcon.tcl."
@@ -191,7 +193,7 @@
       }
    } else {
       if {[catch {wm deiconify $::tkcon::PRIV(root)}]} {
-         if {$tcl_platform(platform)=={windows}} {
+         if {$::tcl_platform(platform)=={windows}} {
             console show
          } else {
             error "Cannot deiconify tkcon!"
