Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 15231)
+++ /trunk/source/level-1/linux-files.lisp	(revision 15232)
@@ -2198,6 +2198,6 @@
                   (nth 4 b-stat))))
       #+windows-target
-      (rlet ((a-info #>BY_HANDLE_FILE_INFORMATION)
-             (b-info #>BY_HANDLE_FILE_INFORMATION))
+      (%stack-block ((a-info (record-length #>BY_HANDLE_FILE_INFORMATION))
+                     (b-info (record-length #>BY_HANDLE_FILE_INFORMATION)))
         (unless (or (eql 0 (#_GetFileInformationByHandle (%int-to-ptr a) a-info))
                     (eql 0 (#_GetFileInformationByHandle (%int-to-ptr b) b-info)))