Index: /branches/x8664-call/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/x8664-call/ccl/level-1/linux-files.lisp	(revision 6325)
+++ /branches/x8664-call/ccl/level-1/linux-files.lisp	(revision 6326)
@@ -1128,9 +1128,9 @@
              1)
             #+freebsd-target
-            (%stack-block ((ret (record-length :uint))
-                           (mib (* (record-length :uint))))
-              (setf (%get-unsigned-long mib 0)
+            (rlet ((ret :uint)
+                   (mib (:array :uint 2)))
+              (setf (paref mib (:array :uint) 0)
                     #$CTL_HW
-                    (%get-unsigned-long mib (record-length :uint))
+                    (paref mib (:array :uint) 1)
                     #$HW_NCPU)
               (rlet ((oldsize :uint (record-length :uint)))