Index: library/lib/package.xotcl
===================================================================
diff -u -r4b3fc9a30f645ddd95aa86e0c703c66dd2586b4d -raa4211a6750a6d5d6907aa21d78a90629ec897dc
--- library/lib/package.xotcl	(.../package.xotcl)	(revision 4b3fc9a30f645ddd95aa86e0c703c66dd2586b4d)
+++ library/lib/package.xotcl	(.../package.xotcl)	(revision aa4211a6750a6d5d6907aa21d78a90629ec897dc)
@@ -51,20 +51,7 @@
 	my set verbose $value
     }
     $package_obj proc present args {
-	if {$::tcl_version<8.3} {
-	    my instvar loaded
-	    switch -exact -- [lindex $args 0] {
-		-exact  {set pkg [lindex $args 1]}
-		default {set pkg [lindex $args 0]}
-	    }
-	    if {[info exists loaded($pkg)]} {
-		return $loaded($pkg)
-	    } else {
-		error "not found"
-	    }
-	} else {
-	  namespace eval :: tcl_package present $args
-	}
+        namespace eval :: tcl_package present $args
     }
 
     $package_obj proc require args {