From e87a278a3b0fef13129264dc98db28a31ad6b49e Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Tue, 10 Aug 2010 19:47:25 -0500
Subject: [PATCH] setup-api: $system error message should not use formatting directives

---
 setup-api.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/setup-api.scm b/setup-api.scm
index 7de6ef2..f012bec 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -803,7 +803,7 @@
 		(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 "shell command failed with nonzero exit status" r str))))
 
 (define (setup-error-handling)
   (current-exception-handler
-- 
1.7.0