From 83a7c7b8f12cb7be5b21ba62c8b24f35fcd98478 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@ccs.neu.edu>
Date: Fri, 11 Dec 2015 10:42:54 -0500
Subject: [PATCH] Remove `this-expression-source-directory`.

---
 gui-test/tests/gracket/item.rkt | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gui-test/tests/gracket/item.rkt b/gui-test/tests/gracket/item.rkt
index c5af4fc4..55061af0 100644
--- a/gui-test/tests/gracket/item.rkt
+++ b/gui-test/tests/gracket/item.rkt
@@ -1,7 +1,6 @@
 #lang racket/gui
 
-(require racket/class
-	 mzlib/etc)
+(require racket/class racket/runtime-path (only-in mzlib/etc opt-lambda))
 
 (define my-txt #f)
 (define my-lb #f)
@@ -188,8 +187,10 @@
 		       
 (define OTHER-LABEL "XXXXXXXXXXXXXXXXXXXXXX")
 
+(define-runtime-path here-path ".")
+
 (define-values (icons-path local-path)
-  (let ([d (this-expression-source-directory)])
+  (let ([d here-path])
     (values
      (lambda (n)
        (collection-file-path n "icons"))