--- pib.tcl.orig	Mon Jan  4 03:23:58 1999
+++ pib.tcl	Sun Oct  3 21:09:27 1999
@@ -1,6 +1,6 @@
 #!/bin/sh
 # Tcl magic \
-exec wish8.0 -f $0 $*
+exec wish8.2 -f $0 $*
 ################################################################################
 #
 # Copyright (C) 1996, 1997
@@ -92,7 +92,7 @@
     set Status(homedir) [file dirname $pname];
 
     # Load the tkSteal extension
-    load $Status(homedir)/libTkSteal.so.2.0;
+    load [glob $Status(homedir)/libTkSteal.so.2*];
     source $Status(homedir)/tkSteal.tcl;
 
     # initialise Options
@@ -2339,7 +2339,7 @@
 #
 proc wait_listwin {tag} {
 
-    set w ".lwin_$(tag)";
+    set w ".lwin_$tag";
     if {[winfo exists $w]} {
 
 	tkwait window $w;
