From 6b16d0b9de4e676ab003f367fac6bb527613dfa0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Aug 2013 05:58:39 -0600
Subject: [PATCH] cm: change an "internal" error to show OS-level error

---
 racket/collects/compiler/cm.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/compiler/cm.rkt b/racket/collects/compiler/cm.rkt
index abff94cc15..8c3a12f321 100644
--- a/racket/collects/compiler/cm.rkt
+++ b/racket/collects/compiler/cm.rkt
@@ -324,7 +324,7 @@
             (date-hour d) (date-minute d) (date-second d))))
 
 (define (verify-times ss-name zo-name)
-  (define ss-sec (try-file-time ss-name))
+  (define ss-sec (file-or-directory-modify-seconds ss-name))
   (define zo-sec (try-file-time zo-name))
   (cond [(not ss-sec) (error 'compile-zo "internal error")]
         [(not zo-sec) (error 'compile-zo "failed to create .zo file (~a) for ~a"