>From ba0c6188a1da87a1e168f981236dc62aef2fca47 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Thu, 24 May 2012 19:12:49 +0200
Subject: [PATCH] Check all elements of the list for being a string in make-pathname

This fixes #855.
---
 files.scm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/files.scm b/files.scm
index 3fae8f5..7341423 100644
--- a/files.scm
+++ b/files.scm
@@ -178,6 +178,7 @@ EOF
       (if (null? strs)
 	  ""
 	  (let ((s1 (car strs)))
+            (##sys#check-string s1 'make-pathname)
 	    (if (zero? (string-length s1))
 		(loop (cdr strs))
 		(string-append 
-- 
1.7.2.5