@@ -1,9 +1,9 @@
 #
 # Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> 
 #
-# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.9 2008/03/18 00:40:37 hobbs2 Exp $
+# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.10 2008/03/19 02:34:21 patthoyts Exp $
 #
 namespace eval tls {
     variable logcmd tclLog
     variable debug 0
  
@@ -25,14 +25,14 @@
     # Package index cd's into the package directory for loading.
     # Irrelevant to unixoids, but for Windows this enables the OS to find
     # the dependent DLL's in the CWD, where they may be.
     set cwd [pwd]
     catch {cd $dir}
-    set res [catch {load [file join $dir $dll]} err]
+    set res [catch {uplevel #0 [list load [file join [pwd] $dll]]} err]
     catch {cd $cwd}
     if {$res} {
-	namespace delete tls
+	namespace eval [namespace parent] {namespace delete tls}
 	return -code $res $err
     }
     rename tls::initlib {}
 }