@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
-# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
-# LAST MODIFICATION: "Wed Sep 15 15:23:16 1999 (joze)"
+# FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
+# LAST MODIFICATION: "Thu Dec 16 21:44:31 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -32,19 +32,22 @@
 namespace eval tclreadline:: {
 	namespace export Init
 }
 
 proc ::tclreadline::Init {} {
-	
-	if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] {
+    uplevel #0 {
+	if ![info exists tclreadline::library] {
+	    if [catch {load /usr/lib/tclreadline1.0/libtclreadline1.0.so} msg] {
 		puts stderr $msg
 		exit 2
+	    }
 	}
+    }
 }
 
 tclreadline::Init
 ::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter
 
 source [file join [file dirname [info script]] tclreadlineSetup.tcl]
 
 set auto_index(::tclreadline::ScriptCompleter) \
 [list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]]