@@ -1,17 +1,16 @@
-#!/usr/local/bin/tclsh
-#
-# FILE: "/krispc6/home/joze/src/tclreadline/sample.tclshrc"
-# LAST MODIFICATION: "Sat May  8 14:02:19 1999 (joze)"
-# (C) 1999 by Johannes Zellner
-# johannes@zellner.org
+#!/bin/sh
+# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
+# LAST MODIFICATION: "Fri Aug 20 15:39:58 1999 (joze)"
+# (C) 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
-
+# vim:set ft=tcl: \
+exec tclsh "$0" "$@"
 
 
 if {$tcl_interactive} {
     package require tclreadline
     namespace import ::tclreadline::Print
 #    ::tclreadline::Print no
     ::tclreadline::Loop
 }