diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm
index 3c0ee7d91..630f27a70 100644
--- a/tests/gpgscm/init.scm
+++ b/tests/gpgscm/init.scm
@@ -600,6 +600,11 @@
 ; Also redefine 'package'
 (define *colon-hook* eval)
 
+(macro (package form)
+  `(apply (lambda ()
+	    ,@(cdr form)
+	    (current-environment))))
+
 ;;;;; I/O
 
 (define (input-output-port? p)