--- pib.tcl
+++ pib.tcl
@@ -1,6 +1,6 @@
 #!/bin/sh
 # Tcl magic \
-exec wish8.2 -f $0 $*
+exec wish8.4 -f $0 $*
 ################################################################################
 #
 # Copyright (C) 1996, 1997
@@ -102,7 +102,7 @@
     h_init;
 
     # find our INDEX
-    set ipath "[op_elookup PORTSDIR]/INDEX";
+    set ipath "[op_elookup PORTSDIR]/INDEX-7";
     if {$argc == 1} {
 	set ipath [lindex $argv 0];
     }