Index: /branches/event-ide/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/event-ide/ccl/level-1/linux-files.lisp	(revision 8346)
+++ /branches/event-ide/ccl/level-1/linux-files.lisp	(revision 8347)
@@ -349,15 +349,4 @@
     "unknown"))
 
-(defun try-hard-to-get-errno (err)
-  (when (eq err -1)
-    (let ((nerr (%get-errno)))
-      (unless (eq nerr 0) (setq err nerr))))
-  #+darwin-target
-  (when (eq err -1)
-    ;; Not thread safe, but what else can I do??
-    (let ((nerr (pref (foreign-symbol-address "_errno") :signed)))
-      (unless (eq nerr 0) (setq err nerr))))
-  err)
-
 (defun copy-file-attributes (source-path dest-path)
   "Copy the mode, owner, group and modification time of source-path to dest-path.
@@ -374,8 +363,6 @@
                       (unless (eql err 0)
                         (setq win nil)
-                        ;; We need the real errno so we can tell if it's a permission
-                        ;; error or something else...
                         (when (eql err -1)
-                          (setq err (try-hard-to-get-errno err)))
+                          (setq err (- (%get-errno))))
                         (unless (eql err #$EPERM) (%errno-disp err dest-path))))))
         (errchk (#_chmod cnamestr mode))
Index: /branches/event-ide/ccl/lib/misc.lisp
===================================================================
--- /branches/event-ide/ccl/lib/misc.lisp	(revision 8346)
+++ /branches/event-ide/ccl/lib/misc.lisp	(revision 8347)
@@ -395,5 +395,5 @@
           (ecase internal-time-units-per-second
             (1000000 6)
-            (100  3)))
+            (1000  3)))
          (cpu-count (cpu-count)))
     (format s "~&~S took ~:D ~a (~,vF seconds) to run ~%~20twith ~D available CPU core~P."