diff --git a/enchive-mode.el b/enchive-mode.el
index 851f0c4..9967a11 100644
--- a/enchive-mode.el
+++ b/enchive-mode.el
@@ -24,7 +24,7 @@
   (let ((file-name-handler-alist ()))
     (cond ((eq operation 'insert-file-contents)
            (let ((file (car args)))
-             (unless (= 0 (call-process "enchive" file '(t nil) nil
+             (unless (= 0 (call-process enchive-program-name file '(t nil) nil
                                         "--pinentry" "--agent" "extract"))
                (error "Enchive subprocess failed"))
              (setf buffer-file-name file)