Index: tests/oldTests/tls.tcl
==================================================================
--- tests/oldTests/tls.tcl
+++ tests/oldTests/tls.tcl
@@ -1,9 +1,9 @@
 #
 # Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
 #
-# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tls.tcl,v 1.1 2000/06/06 18:13:20 aborr Exp $
+# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tls.tcl,v 1.2 2000/06/06 18:24:33 aborr Exp $
 #
 set dir [file dirname [info script]]
 regsub {\.} [info tclversion] {} vshort
 if {$tcl_platform(platform) == "windows"} {
     if {[info exists tcl_platform(debug)]} {
@@ -18,8 +18,8 @@
 proc bgerror {err} {
     global errorInfo
     puts stderr "BG Error: $errorInfo"
 }
 
-source $dir/../library/tls.tcl
+source $dir/../tls.tcl
 set tls::debug 2