diff options
Diffstat (limited to 'tests/gpgscm/init.scm')
| -rw-r--r-- | tests/gpgscm/init.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 3769ed00d..b78a59e5b 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -615,7 +615,7 @@ (display message) (when (and args (not (null? args))) (display ": ") - (if (string? (car args)) + (if (and (pair? args) (string? (car args))) (begin (display (car args)) (unless (null? (cdr args)) (newline) |