Index: library/dde1.1/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/dde1.1/Attic/pkgIndex.tcl,v
retrieving revision 1.4
diff -u -r1.4 pkgIndex.tcl
--- library/dde1.1/pkgIndex.tcl	2000/04/20 01:30:19	1.4
+++ library/dde1.1/pkgIndex.tcl	2001/08/08 04:22:28
@@ -1,3 +1,4 @@
+if {![package vsatisfies [package provide Tcl] 8]} {return}
 if {[info exists tcl_platform(debug)]} {
     package ifneeded dde 1.1 [list load [file join $dir tcldde83d.dll] dde]
 } else {
Index: library/http/http.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/http/http.tcl,v
retrieving revision 1.32.2.1
diff -u -r1.32.2.1 http.tcl
--- library/http/http.tcl	2000/05/31 01:28:57	1.32.2.1
+++ library/http/http.tcl	2001/08/08 04:22:28
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and
 # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: http.tcl,v 1.32.2.1 2000/05/31 01:28:57 sandeep Exp $
+# RCS: @(#) $Id: http.tcl,v 1.35 2001/08/02 04:21:16 dgp Exp $
 
 # Rough version history:
 # 1.0	Old http_get interface
@@ -20,7 +20,8 @@
 #	This version also cleans up error cases and eliminates the
 #	"ioerror" status in favor of raising an error
 
-package provide http 2.3
+package require Tcl 8.2
+package provide http 2.3.2
 
 namespace eval http {
     variable http
@@ -28,7 +29,7 @@
 	-accept */*
 	-proxyhost {}
 	-proxyport {}
-	-useragent {Tcl http client package 2.3}
+	-useragent {Tcl http client package 2.3.2}
 	-proxyfilter http::ProxyRequired
     }
 
@@ -853,10 +854,8 @@
 
     set alphanumeric	a-zA-Z0-9
     regsub -all \[^$alphanumeric\] $string {$formMap(&)} string
-    regsub -all \n $string {\\n} string
-    regsub -all \t $string {\\t} string
     regsub -all {[][{})\\]\)} $string {\\&} string
-    return [subst $string]
+    return [subst -nocommand $string]
 }
 
 # http::ProxyRequired --
Index: library/http/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/http/pkgIndex.tcl,v
retrieving revision 1.4
diff -u -r1.4 pkgIndex.tcl
--- library/http/pkgIndex.tcl	2000/03/18 02:16:40	1.4
+++ library/http/pkgIndex.tcl	2001/08/08 04:22:28
@@ -8,4 +8,5 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded http 2.3 [list tclPkgSetup $dir http 2.3 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister}}}]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded http 2.3.2 [list tclPkgSetup $dir http 2.3.2 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister}}}]
Index: library/msgcat/msgcat.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/msgcat/msgcat.tcl,v
retrieving revision 1.4.2.3
diff -u -r1.4.2.3 msgcat.tcl
--- library/msgcat/msgcat.tcl	2000/08/08 17:53:42	1.4.2.3
+++ library/msgcat/msgcat.tcl	2001/08/08 04:22:28
@@ -12,7 +12,8 @@
 # 
 # RCS: @(#) $Id: msgcat.tcl,v 1.4.2.3 2000/08/08 17:53:42 hobbs Exp $
 
-package provide msgcat 1.1
+package require Tcl 8.2
+package provide msgcat 1.1.1
 
 namespace eval msgcat {
     namespace export mc mcset mclocale mcpreferences mcunknown
@@ -49,7 +50,7 @@
     # Check for the src in each namespace starting from the local and
     # ending in the global.
 
-    set ns [uplevel {namespace current}]
+    set ns [uplevel 1 [list ::namespace current]]
     
     while {$ns != ""} {
 	foreach loc $::msgcat::loclist {
@@ -66,7 +67,7 @@
 	set ns [namespace parent $ns]
     }
     # we have not found the translation
-    return [uplevel 1 [list [namespace origin mcunknown] \
+    return [uplevel 1 [list [::namespace origin mcunknown] \
 	    $::msgcat::locale $src] $args]
 }
 
@@ -134,7 +135,10 @@
 	set langfile [file join $langdir $p.msg]
 	if {[file exists $langfile]} {
 	    incr x
-	    uplevel [list source $langfile]
+            set fid [open $langfile "r"]
+            fconfigure $fid -encoding utf-8
+            uplevel 1 [read $fid]
+            close $fid
 	}
     }
     return $x
@@ -158,7 +162,7 @@
 	set dest $src
     }
 
-    set ns [uplevel {namespace current}]
+    set ns [uplevel 1 [list ::namespace current]]
 
     set ::msgcat::msgs([string tolower $locale],$ns,$src) $dest
     return $dest
Index: library/msgcat/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/msgcat/pkgIndex.tcl,v
retrieving revision 1.2.12.1
diff -u -r1.2.12.1 pkgIndex.tcl
--- library/msgcat/pkgIndex.tcl	2000/08/08 18:08:11	1.2.12.1
+++ library/msgcat/pkgIndex.tcl	2001/08/08 04:22:28
@@ -1 +1,2 @@
-package ifneeded msgcat 1.1 [list source [file join $dir msgcat.tcl]]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded msgcat 1.1.1 [list source [file join $dir msgcat.tcl]]
Index: library/opt/optparse.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/opt/optparse.tcl,v
retrieving revision 1.2.12.2
diff -u -r1.2.12.2 optparse.tcl
--- library/opt/optparse.tcl	2001/04/03 22:54:38	1.2.12.2
+++ library/opt/optparse.tcl	2001/08/08 04:22:28
@@ -8,9 +8,10 @@
 #	on it.  If your code does rely on this package you
 #	may directly incorporate this code into your application.
 #
-# RCS: @(#) $Id: optparse.tcl,v 1.2.12.2 2001/04/03 22:54:38 hobbs Exp $
+# RCS: @(#) $Id: optparse.tcl,v 1.5 2000/12/11 04:17:39 dgp Exp $
 
-package provide opt 0.4.2
+package require Tcl 8
+package provide opt 0.4.3
 
 namespace eval ::tcl {
 
Index: library/opt/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/opt/pkgIndex.tcl,v
retrieving revision 1.2.12.1
diff -u -r1.2.12.1 pkgIndex.tcl
--- library/opt/pkgIndex.tcl	2001/04/03 22:54:38	1.2.12.1
+++ library/opt/pkgIndex.tcl	2001/08/08 04:22:28
@@ -8,4 +8,5 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded opt 0.4.2 [list source [file join $dir optparse.tcl]]
+if {![package vsatisfies [package provide Tcl] 8]} {return}
+package ifneeded opt 0.4.3 [list source [file join $dir optparse.tcl]]
Index: library/reg1.0/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/reg1.0/Attic/pkgIndex.tcl,v
retrieving revision 1.7
diff -u -r1.7 pkgIndex.tcl
--- library/reg1.0/pkgIndex.tcl	2000/04/20 01:30:20	1.7
+++ library/reg1.0/pkgIndex.tcl	2001/08/08 04:22:28
@@ -1,3 +1,4 @@
+if {![package vsatisfies [package provide Tcl] 8]} {return}
 if {[info exists tcl_platform(debug)]} {
     package ifneeded registry 1.0 \
             [list load [file join $dir tclreg83d.dll] registry]
Index: library/tcltest1.0/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest1.0/Attic/pkgIndex.tcl,v
retrieving revision 1.5
diff -u -r1.5 pkgIndex.tcl
--- library/tcltest1.0/pkgIndex.tcl	2000/01/27 23:44:07	1.5
+++ library/tcltest1.0/pkgIndex.tcl	2001/08/08 04:22:28
@@ -8,7 +8,8 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded tcltest 1.0 [list tclPkgSetup $dir tcltest 1.0 \
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded tcltest 1.0.1 [list tclPkgSetup $dir tcltest 1.0.1 \
 	{{tcltest.tcl source {::tcltest::bytestring ::tcltest::cleanupTests \
         ::tcltest::makeDirectory ::tcltest::makeFile ::tcltest::normalizeMsg \
         ::tcltest::removeDirectory ::tcltest::removeFile \
Index: library/tcltest1.0/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest1.0/Attic/tcltest.tcl,v
retrieving revision 1.24
diff -u -r1.24 tcltest.tcl
--- library/tcltest1.0/tcltest.tcl	2000/04/11 01:04:19	1.24
+++ library/tcltest1.0/tcltest.tcl	2001/08/08 04:22:29
@@ -14,7 +14,8 @@
 # 
 # RCS: @(#) $Id: tcltest.tcl,v 1.24 2000/04/11 01:04:19 welch Exp $
 
-package provide tcltest 1.0
+package require Tcl 8.2
+package provide tcltest 1.0.1
 
 # create the "tcltest" namespace for all testing variables and procedures
 
