@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
-# FILE: "/diska/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
-# LAST MODIFICATION: "Wed Aug 25 16:27:19 1999 (joze)"
+# FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
+# LAST MODIFICATION: "Sun Aug 29 00:03:22 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -36,16 +36,23 @@
 proc ::tclreadline::Init {} {
     
     global tclreadline_version
     global tclreadline_library
     global tclreadline_patchLevel
+
+    variable version
+    variable library
+    variable patchLevel
     
     set tclreadline_version @TCLREADLINE_VERSION@
+    set version @TCLREADLINE_VERSION@
     set tclreadline_library @TCLREADLINE_LIBRARY@
+    set library @TCLREADLINE_LIBRARY@
     # NOTE, that tclreadline_patchLevel is the complete patchlevel string.
     #
     set tclreadline_patchLevel @TCLREADLINE_VERSION@.@TCLREADLINE_PATCHLEVEL@
+    set patchLevel @TCLREADLINE_VERSION@.@TCLREADLINE_PATCHLEVEL@
 
     if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] {
         puts stderr $msg
         exit 2
     }