From 31c14d51ae16fefe259f2446e184def78e0d54f5 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 16 Nov 2013 20:20:22 -0600
Subject: [PATCH] fix contract

---
 .../drracket-pkgs/drracket/drracket/private/get-module-path.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt
index 8fb8878933..4bad74e8b7 100644
--- a/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/get-module-path.rkt
@@ -14,7 +14,7 @@
          #:pref [pref symbol?]
          #:dir? [dir? boolean?])
         [res (dir?)
-             (if dir?
+             (if (or dir? (not (equal? dir? the-unsupplied-arg)))
                  (listof path?)
                  (or/c path? #f))])]))