Index: pkgIndex.tcl.in
===================================================================
RCS file: /cvsroot/tcl/thread/pkgIndex.tcl.in,v
retrieving revision 1.5
diff -u -r1.5 pkgIndex.tcl.in
--- pkgIndex.tcl.in	22 Dec 2003 21:23:44 -0000	1.5
+++ pkgIndex.tcl.in	17 Mar 2004 16:31:57 -0000
@@ -1,13 +1,13 @@
 # Tcl package index file, version 1.1
 
-if {$::tcl_version >= 8.3} {
-    if {$::tcl_version == 8.3} {
-        set provides {@THREAD_VERSION_SUBSET83@}
-    } else {
-        set provides {@VERSION@}
-    }
-    package ifneeded Ttrace {@TTRACE_VERSION@} \
-        [list source [file join $dir ttrace.tcl]]
-    package ifneeded Thread $provides \
-        [list load [file join $dir @thread_LIB_FILE@] Thread]
+if {![package vsatisfies [package provide Tcl] 8.3]} {return}
+if {[string equal 8.3 [package provide Tcl]]} {
+    package ifneeded Thread @THREAD_VERSION_SUBSET83@ \
+            [list load [file join $dir @thread_LIB_FILE@] Thread]
+} else {
+    package ifneeded Thread @VERSION@ \
+            [list load [file join $dir @thread_LIB_FILE@] Thread]
 }
+package ifneeded Ttrace @TTRACE_VERSION@ \
+        [list source [file join $dir ttrace.tcl]]
+
