From 7ff7ef196bdf78c653b50f388759c905a50936a2 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Wed, 10 Aug 2005 18:33:33 +0000
Subject: [PATCH] make sure to call CONTAINS-GLOB-EXPRESSION? only for strings

---
 scheme/std-command.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/std-command.scm b/scheme/std-command.scm
index b3aeb7d..7933c31 100644
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@@ -71,7 +71,7 @@
      (expand-string/s-expr (command-executable command))
      (fold-right 
       (lambda (arg args)
-	(if (contains-glob-expression? arg)
+	(if (and (string? arg) (contains-glob-expression? arg))
 	    (append (glob-argument arg) args)
 	    (cons arg args)))
       '() expanded)