From f50f44bb258aa80d2e75f8461a9c773964a2c132 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Sep 2020 08:50:46 -0600
Subject: [PATCH] anoter repair to test for raco pkg

---
 pkgs/racket-test/tests/pkg/tests-permissions.rkt | 5 +++--
 pkgs/racket-test/tests/pkg/util.rkt              | 2 --
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/pkgs/racket-test/tests/pkg/tests-permissions.rkt b/pkgs/racket-test/tests/pkg/tests-permissions.rkt
index b75ac34bc8..59e5cef633 100644
--- a/pkgs/racket-test/tests/pkg/tests-permissions.rkt
+++ b/pkgs/racket-test/tests/pkg/tests-permissions.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
-(require "shelly.rkt"
+(require racket/file
+         "shelly.rkt"
          "util.rkt")
 
 (this-test-is-run-by-the-main-test)
@@ -34,5 +35,5 @@
        (rename-file-or-directory alt-dir pkg-dir))
      ;; create the directory and try again:
      (begin
-       (make-directory pkg-dir)
+       (make-directory* pkg-dir)
        (try-now))))
diff --git a/pkgs/racket-test/tests/pkg/util.rkt b/pkgs/racket-test/tests/pkg/util.rkt
index 5eac196247..a9c4b3f493 100644
--- a/pkgs/racket-test/tests/pkg/util.rkt
+++ b/pkgs/racket-test/tests/pkg/util.rkt
@@ -49,7 +49,6 @@
   (define tmp-dir
     (make-temporary-file ".racket.fake-installation~a" 'directory
                          (find-system-path 'temp-dir)))
-  (make-directory* tmp-dir)
   (dynamic-wind
       void
       (λ ()
@@ -105,7 +104,6 @@
   (define tmp-dir
     (make-temporary-file ".racket.fake-root~a" 'directory
                          (find-system-path 'home-dir)))
-  (make-directory* tmp-dir)
   (dynamic-wind
       void
       (λ ()