From a2314a8f0e108e81c4c024d334966b5fe75588e7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 28 Sep 2008 04:12:23 +0000
Subject: [PATCH] fixed a bug in the last commit

svn: r11893
---
 collects/profj/tool.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss
index fbd32c5703..411bd10be3 100644
--- a/collects/profj/tool.ss
+++ b/collects/profj/tool.ss
@@ -22,9 +22,10 @@
     (syntax-case stx ()
       [(_ fn id ...)
        #'(begin
+           (define-runtime-path the-file fn)
            (define (id . x)
              (let ([orig-fn (parameterize ([current-namespace drs-ns])
-                              (dynamic-require fn 'id))])
+                              (dynamic-require the-file 'id))])
                (apply orig-fn x)))
            ...)]))