~ chicken-core (chicken-5) c6d6f125c1eed52dd9e8540fc4454eea95472b09

commit c6d6f125c1eed52dd9e8540fc4454eea95472b09
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 11 08:51:49 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 11 08:51:49 2010 -0400

    fix in setup-api (thanks to zbigniew)

diff --git a/setup-api.scm b/setup-api.scm
index b94ecedc..9c14871a 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -803,7 +803,8 @@
 		(string-append "\"" str "\"") ; (sic) thanks to Matthew Flatt
 		str))))
     (unless (zero? r)
-      (error "shell command failed with nonzero exit status ~a:~%~%  ~a" r str))))
+      (error
+       (sprintf "shell command failed with nonzero exit status ~a:~%~%  ~a" r str)))))
 
 (define (setup-error-handling)
   (current-exception-handler