From 5d178d7b6b85cc52fa0cd363f271d13c0ca0bde5 Mon Sep 17 00:00:00 2001
From: Andreas Kupries <andreas_kupries@users.sourceforge.net>
Date: Wed, 30 Oct 2002 22:27:18 +0000
Subject: [PATCH] 	* library/pkgIndex.tcl: Changed 'tcl_platform' to 
   '::tcl_platform'. Package index must not assume execution at 	 
 global level.

---
 ChangeLog            | 6 ++++++
 library/pkgIndex.tcl | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 59316b1..4fedd6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-30  Andreas Kupries  <andreask@activestate.com>
+
+	* library/pkgIndex.tcl: Changed 'tcl_platform' to
+	  '::tcl_platform'. Package index must not assume execution at
+	  global level.
+
 2002-10-19  Jean-Claude Wippler <jcw@equi4.com>
 
 	* library/pkgIndex.tcl:
diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index e07ca2e..bd460b1 100644
--- a/library/pkgIndex.tcl
+++ b/library/pkgIndex.tcl
@@ -17,9 +17,9 @@ package require Tcl 8.4
 namespace eval ::vfs {}
 variable vfs::dll
 
-if {$tcl_platform(platform) eq "unix"} {
+if {$::tcl_platform(platform) eq "unix"} {
     set dll libvfs1.0
-} elseif {[info exists tcl_platform(debug)]} {
+} elseif {[info exists ::tcl_platform(debug)]} {
     set dll vfs10d
 } else {
     set dll vfs10
-- 
2.23.0