Index: /branches/x8664-call/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/x8664-call/ccl/level-1/linux-files.lisp	(revision 6331)
+++ /branches/x8664-call/ccl/level-1/linux-files.lisp	(revision 6332)
@@ -1128,6 +1128,6 @@
              1)
             #+freebsd-target
-            (rlet ((ret :uint)
-                   (mib (:array :uint 2)))
+            (rlet ((ret :uint))
+              (%stack-block ((mib (* (record-length :uint) 2)))
               (setf (paref mib (:array :uint) 0)
                     #$CTL_HW
@@ -1137,5 +1137,5 @@
                 (if (eql 0 (#_sysctl mib 2 ret oldsize (%null-ptr) 0))
                   (pref ret :uint)
-                  1)))
+                  1))))
             )))