svn: r11513

2008-09-01 20:30:04 +00:00 · 2008-09-01 20:30:04 +00:00 · facfe60934
commit facfe60934
parent c897d1710c
1 changed files with 3 additions and 1 deletions
--- a/collects/scheme/private/contract-helpers.ss
+++ b/collects/scheme/private/contract-helpers.ss
@ -121,7 +121,9 @@
       'top-level]
      [else
       ;; note: the directory passed to collapse-module-path-index should be irrelevant
-       (let ([collapsed (collapse-module-path-index mpi (current-directory))])
+       (let ([collapsed 
+              (with-handlers ((exn:fail? (λ (x) 'top-level)))  ;; this with-handlers works around a bug elsewhere
+                (collapse-module-path-index mpi (current-directory)))])
         (cond
           [(path? collapsed)
            (let ([resolved (resolved-module-path-name (module-path-index-resolve mpi))])