>From 5d8663e7832982f9fb6ac7c9642a9c9e3085e433 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..83fe297 100644
--- a/files.scm
+++ b/files.scm
@@ -174,6 +174,7 @@ EOF
 
   (define (conc-dirs dirs)
     (##sys#check-list dirs 'make-pathname)
+    (for-each (lambda (d) (##sys#check-string d 'make-pathname)) dirs)
     (let loop ((strs dirs))
       (if (null? strs)
 	  ""
-- 
1.7.2.5