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)