--- lib/extrasInit.tcl.ORIG	Thu Sep 30 09:51:15 1999
+++ lib/extrasInit.tcl	Thu Sep 30 09:52:06 1999
@@ -499,7 +499,7 @@
     # if there is an appropriate keyring
     foreach v $pgp(supportedversions) {
         if { [file exists [set pgp($v,pubring)]] && 
-             [file isdirectory [set pgp($v,path)]]} {
+             [file isdirectory [set pgp($v,defaultPath)]]} {
             set pgp($v,enabled) 1
             set pgp(enabled) 1
             lappend setup $v
