fixed a bug in the last commit

svn: r11893
2008-09-28 04:12:23 +00:00 · 2008-09-28 04:12:23 +00:00 · a2314a8f0e
commit a2314a8f0e
parent eadcced90d
1 changed files with 2 additions and 1 deletions
--- 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)))
           ...)]))