$OpenBSD: patch-examples_math_bigfloat_demo_tcl,v 1.1 2009/03/19 16:54:32 sthen Exp $
--- examples/math/bigfloat.demo.tcl.orig	Fri Dec 12 23:10:25 2008
+++ examples/math/bigfloat.demo.tcl	Fri Jan 16 14:48:18 2009
@@ -1,3 +1,9 @@
+#! /bin/sh
+# the next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
+set scriptDir [file dirname [info script]]
+
 ########################################################################
 # BigFloat for Tcl
 # Copyright (C) 2003-2005  ARNOLD Stephane
@@ -45,6 +51,8 @@
 #
 ########################################################################
 
+package require Tk
+
 package require math::bigfloat
 namespace import ::math::bigfloat::*
 
@@ -248,7 +256,7 @@ proc ShowFile {filename buttonText} {
 
 proc _help {args} {
     # display some help
-    ShowFile bigfloat.help Close
+    ShowFile [file join $::scriptDir bigfloat.help] Close
 }
 
 proc _del {} {
