From bfb0ac0ae6edbd93f9ab3da63c9e7579adf5562d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 17 Apr 2005 09:03:12 +0000
Subject: [PATCH] .

original commit: 1e1ae1a7fe7c465da9c9659a0b41027596422c16
---
 collects/mzlib/etc.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.ss
index 0176857..5834005 100644
--- a/collects/mzlib/etc.ss
+++ b/collects/mzlib/etc.ss
@@ -471,7 +471,7 @@
    (syntax-case stx ()
      [(_)
       (let* ([f (syntax-source stx)]
-             [f (and f (string? f) (file-exists? f)
+             [f (and f (or (path? f) (string? f)) (file-exists? f)
                      (let-values ([(base file dir?) (split-path f)]) file))])
         (datum->syntax-object (quote-syntax here) f stx))]))