>From 1a2dc5afc24d8318813d5bfdf7932d20b85ec26f Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Tue, 6 Mar 2012 12:31:40 +0100
Subject: [PATCH] Check assert's msg argument for being a string.

---
 chicken-syntax.scm |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index bed542e..71576b2 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -175,8 +175,10 @@
 	     (ln (get-line-number form))
 	     (msg-and-args (cddr form))
 	     (msg  (if (null? msg-and-args)
-		       "assertion failed"
-		       (car msg-and-args)))
+                       "assertion failed"
+                       (let ((msg-str (car msg-and-args)))
+                         (##sys#check-string msg-str 'assert)
+                         msg-str)))
 	     (msg (if ln
 		      (string-append "(" ln ") " msg)
 		      msg)))
-- 
1.7.4.1