diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index b7d7e7ae..386cc70d 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -33,8 +33,11 @@ (let ((msg (string-append "Implementation " (symbol->string (car spec)) - " is an unsupported version, " version ", but" - " at least " (fourth spec) " is required."))) + (if (string? version) + (string-append " is an unsupported version, " + version) + " is an unknown version") + ", but at least " (fourth spec) " is required."))) (cond (confirm? (yes-or-no? cfg msg " Install anyway?"))