--- tclreadline-2.1.0/tclreadlineInit.tcl.in~	2004-11-03 18:33:01 +0300
+++ tclreadline-2.1.0/tclreadlineInit.tcl.in	2004-11-03 18:34:35 +0300
@@ -11,22 +11,7 @@
 
 package provide tclreadline @VERSION@
 
-namespace eval tclreadline:: {
-    namespace export Init
-}
-
-proc ::tclreadline::Init {} {
-    uplevel #0 {
-	if ![info exists tclreadline::library] {
-	    if [catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg] {
-		puts stderr $msg
-		exit 2
-	    }
-	}
-    }
-}
-
-tclreadline::Init
+namespace eval tclreadline:: {}
 ::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter
 
 source [file join [file dirname [info script]] tclreadlineSetup.tcl]
--- tclreadline-2.1.0/pkgIndex.tcl.in~	2004-11-03 18:33:01 +0300
+++ tclreadline-2.1.0/pkgIndex.tcl.in	2004-11-03 18:37:44 +0300
@@ -9,5 +9,4 @@
 # Copyright (c) 1998 - 2001, Johannes Zellner <johannes@zellner.org>
 # This software is copyright under the BSD license.
 
-package ifneeded tclreadline @VERSION@ \
-    [list source [file join $dir tclreadlineInit.tcl]]
+package ifneeded tclreadline @VERSION@ "[list load [file join $dir .. .. .. @lib@ tcl libtclreadline.so]]; [list source [file join $dir tclreadlineInit.tcl]]"