From 7d34a9ecd59be1271f12207d2e21f76dd477871e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 16 Jan 2010 17:28:31 +0000
Subject: [PATCH] fixed path problem

svn: r17675
---
 collects/2htdp/tests/profile-robby.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/2htdp/tests/profile-robby.ss b/collects/2htdp/tests/profile-robby.ss
index 306e633b49..ce1da9d02c 100644
--- a/collects/2htdp/tests/profile-robby.ss
+++ b/collects/2htdp/tests/profile-robby.ss
@@ -1,12 +1,16 @@
 #lang scheme/gui
-(require profile)
+(require profile
+         scheme/runtime-path)
+
+(define-runtime-path perform-robby "perform-robby.ss")
+
 (profile-thunk
  (λ ()
    (parameterize ([current-eventspace (make-eventspace)])
      (let ([s (make-semaphore 0)])
        (queue-callback
         (λ ()
-          (dynamic-require "perform-robby.ss" #f)
+          (dynamic-require perform-robby #f)
           (semaphore-post s)))
        (semaphore-wait s))))
  #:threads #t)