From ff308a39db4614db3eac48a6734e5020b167a82c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 11 Jun 2006 02:20:42 +0000
Subject: [PATCH] restore use of to-path

svn: r3320
---
 collects/setup/configtab.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/setup/configtab.ss b/collects/setup/configtab.ss
index f049f6b8d0..0d94c95bb9 100644
--- a/collects/setup/configtab.ss
+++ b/collects/setup/configtab.ss
@@ -70,7 +70,7 @@
 	     (with-syntax ([(expr ...)
                             (map (lambda (name val)
                                    (if (memq (syntax-e name) path-exports)
-                                     #`(delay #,val) val))
+                                     #`(delay (to-path #,val)) val))
                                  (syntax->list #'(name ...))
                                  (syntax->list #'(val  ...)))])
                #`(#%plain-module-begin