$OpenBSD$
--- examples/plotchart/testfunc.tcl.orig	Sun Aug  4 10:34:40 2013
+++ examples/plotchart/testfunc.tcl	Sun Aug  4 10:42:04 2013
@@ -1,7 +1,12 @@
+#! /bin/sh
+# The next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
+package require Tk
+
 # testfunc.tcl --
 #     Test the plotfunc method
 #
-source plotchart.tcl
 package require Plotchart
 
 grid [canvas .c -width 500 -height 500]
