@@ -1,30 +1,26 @@
 #!/usr/local/bin/tclsh
 # FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
-# LAST MODIFICATION: "Sat, 25 Mar 2000 20:51:17 +0100 (joze)"
+# LAST MODIFICATION: "Sat, 01 Jul 2000 23:54:15 +0200 (joze)"
 # (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
-#
 # tclreadline -- gnu readline for tcl
 # http://www.zellner.org/tclreadline/
 # Copyright (c) 1998 - 2000, Johannes Zellner <johannes@zellner.org>
-#
 # This software is copyright under the BSD license.
-#
-# ================================================================== 
 
-package provide tclreadline @TCLREADLINE_VERSION@
+package provide tclreadline @VERSION@
 
 namespace eval tclreadline:: {
     namespace export Init
 }
 
 proc ::tclreadline::Init {} {
     uplevel #0 {
 	if ![info exists tclreadline::library] {
-	    if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] {
+	    if [catch {load @TCLRL_DIR@/../libtclreadline[info sharedlibextension]} msg] {
 		puts stderr $msg
 		exit 2
 	    }
 	}
     }