@@ -1,14 +1,14 @@
 #!/usr/local/bin/tclsh
 # 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>
+# LAST MODIFICATION: "Thu, 23 Mar 2000 22:36:01 +0100 (joze)"
+# (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
-# Copyright (C) 1999  Johannes Zellner
+# Copyright (C) 1998 - 2000 Johannes Zellner
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
 # as published by the Free Software Foundation; either version 2
 # of the License, or (at your option) any later version.
@@ -28,17 +28,17 @@
 # ================================================================== 
 
 package provide tclreadline @TCLREADLINE_VERSION@
 
 namespace eval tclreadline:: {
-	namespace export Init
+    namespace export Init
 }
 
 proc ::tclreadline::Init {} {
     uplevel #0 {
 	if ![info exists tclreadline::library] {
-	    if [catch {load /usr/lib/tclreadline1.0/libtclreadline1.0.so} msg] {
+	    if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] {
 		puts stderr $msg
 		exit 2
 	    }
 	}
     }