fix cm sha1 problem

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)])

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))