Index: xotcl/library/lib/package.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/lib/package.xotcl	(.../package.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/lib/package.xotcl	(.../package.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-#$Id: package.xotcl,v 1.4 2005/09/09 21:09:01 neumann Exp $
+#$Id: package.xotcl,v 1.5 2006/09/14 06:36:02 neumann Exp $
 package provide xotcl::package 0.91
 
 package require xotcl::mixinStrategy
@@ -37,8 +37,8 @@
     package set component .
     package set verbose 0
     package proc unknown args {
-	#puts stderr "unknown: package $args"
-	eval tcl_package $args
+      #puts stderr "unknown: package $args"
+      namespace eval :: tcl_package $args
     }
     package proc verbose value {
 	my set verbose $value
@@ -56,7 +56,7 @@
 		error "not found"
 	    }
 	} else {
-	    eval tcl_package present $args
+	  namespace eval :: tcl_package present $args
 	}
     }
 
@@ -71,8 +71,8 @@
 	    }
 	    set component $pkg
 	    lappend uses($prevComponent) $component
-	    set v [eval tcl_package require $args]
-	    if {$v != "" && $verbose} {
+	    set v [namespace eval :: tcl_package require $args]
+	    if {$v ne "" && $verbose} {
 		set path [lindex [tcl_package ifneeded $pkg $v] 1]
 		puts "... $pkg $v loaded from '$path'"
 		set loaded($pkg) $v   ;# loaded stuff needed for Tcl 8.0