$NetBSD: patch-ai,v 1.2 2006/01/16 14:47:35 adam Exp $

--- tests/load.test.orig	2004-09-14 17:02:56.000000000 +0000
+++ tests/load.test
@@ -28,7 +28,7 @@ if {$tcl_platform(platform) == "macintos
 
 # Tests require the existence of one of the DLLs in the dltest directory.
 set ext [info sharedlibextension]
-set testDir [file join [file dirname [info nameofexecutable]] dltest]
+set testDir [file join [file dirname [info nameofexecutable]] .. dltest .libs ]
 set x [file join $testDir pkga$ext]
 set dll "[file tail $x]Required"
 ::tcltest::testConstraint $dll [file readable $x]