Index: openacs-4/etc/install/tcl/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/test-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/etc/install/tcl/test-procs.tcl	23 Oct 2003 12:35:01 -0000	1.5
+++ openacs-4/etc/install/tcl/test-procs.tcl	14 Nov 2003 14:49:32 -0000	1.6
@@ -7,10 +7,8 @@
 
 namespace eval ::twt {}
 
-set script_dir [file dirname [info script]]
-
 # Source all *-procs.tcl files in this directory
-foreach path [glob ${script_dir}/*-procs.tcl] {
+foreach path [glob [file dirname [info script]]/*-procs.tcl] {
     if { ![regexp {test-procs\.tcl$} $path] } {
         source $path
     }