--- 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]]"