--- a/samples/wines.tcl
+++ b/samples/wines.tcl
@@ -1,21 +1,4 @@
-#!/bin/sh
-# @(#$Id$  
-
-# A small utility to access a wine list database. 
-# See createloadwines.sh for the database definition
-
-# The following nonsense is required because mysqlwish dumps core when 
-# SQLDBTYPE is ODBC, reason unknown.
-# The following lines are executed by sh, not by wish because of the
-# backslashes... Puke loudly \
-#\
-case "A$SQLDBTYPE" in 
-#\
-  A|AMYSQL) exec mysqlwish "$0" "$@";;
-#\
-*) exec wish "$0" "$@";; 
-#\
-esac
+#!/usr/bin/env wish
 
 package require sqlsc