X-Git-Url: https://git.distorted.org.uk/~mdw/distorted-keys/blobdiff_plain/c47f2aba7d705252c660ba1ad0931fbb93122d80..0bc47568f2c94d6e48bc389ac508d5f905daa9c7:/cryptop.genkey

diff --git a/cryptop.genkey b/cryptop.genkey
old mode 100644
new mode 100755
index b33458d..8e201a2
--- a/cryptop.genkey
+++ b/cryptop.genkey
@@ -39,7 +39,7 @@ HELP
 
 genhook_recov () {
   base=$1 nub=$2
-  for recov in $kopt_recovery; do
+  for recov in $kprop_recovery; do
     (stash $recov $kowner/$klabel <"$nub")
   done
 }
@@ -92,7 +92,7 @@ case "$profile" in
     ;;
 esac
 checkword "profile label" "$label"
-read_profile $profile
+read_profile $USERV_USER $profile
 
 ## Generate the key.
 c_genkey $profile $kdir $knub genhook_recov "$@"