Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 14581)
+++ /trunk/source/level-1/linux-files.lisp	(revision 14582)
@@ -841,5 +841,5 @@
         (setq namestring (concatenate 'string namestring "*"))
         (setq namestring (concatenate 'string namestring "/*")))))
-  (let* ((dir (make-record :win64-dir :state -1)))
+  (let* ((dir (malloc (record-length :win64-dir))))
     (with-filename-cstrs ((name namestring))
       (let* ((handle (#_FindFirstFileW name dir)))