diff --git a/tests/gpgscm/ffi.scm b/tests/gpgscm/ffi.scm
index fb1853857..c5f373c17 100644
--- a/tests/gpgscm/ffi.scm
+++ b/tests/gpgscm/ffi.scm
@@ -61,6 +61,7 @@
     (_exit (cadr x)))
    (else
     (apply error x))))
+(set! *error-hook* throw)
 
 ;; Terminate the process returning STATUS to the parent.
 (define (exit status)