diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c
index 220eed3d9..fba107131 100644
--- a/tests/gpgscm/scheme.c
+++ b/tests/gpgscm/scheme.c
@@ -2683,7 +2683,7 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
                sc->dump = cont_dump(sc->code);
                s_return(sc,sc->args != sc->NIL ? car(sc->args) : sc->NIL);
           } else {
-               Error_0(sc,"illegal function");
+               Error_1(sc,"illegal function",sc->code);
           }
 
      case OP_DOMACRO:    /* do macro */