From 9350df36b603a694a645e10043a24f0ffad569fc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 4 May 2010 12:36:02 -0600
Subject: [PATCH] fix cm sha1 problem

---
 collects/compiler/cm.rkt | 3 ++-
 collects/setup/main.rkt  | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt
index d516f46e77..ed77f56043 100644
--- a/collects/compiler/cm.rkt
+++ b/collects/compiler/cm.rkt
@@ -427,7 +427,8 @@
                                                           'so-suffix)))
                        dep-path)
         (try-file-sha1 (build-path dir (path-add-suffix name #".zo"))
-                       dep-path))))
+                       dep-path)
+        "")))
 
 (define (rkt->ss p)
   (let ([b (path->bytes p)])
diff --git a/collects/setup/main.rkt b/collects/setup/main.rkt
index 2844db7e9d..d32de5aa47 100644
--- a/collects/setup/main.rkt
+++ b/collects/setup/main.rkt
@@ -81,8 +81,8 @@
           (on? "-n"))
       ;; Don't use .zos, in case they're out of date, and don't load
       ;;  cm:
-      (when (or (on? "--clean" values)
-                (on? "-c" values))
+      (when (or (on? "--clean")
+                (on? "-c"))
 	(use-compiled-file-paths null)
 	(print-bootstrapping))