Index: /branches/working-0711/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12959)
+++ /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12960)
@@ -718,5 +718,5 @@
           (#_SystemTimeToFileTime st ft)
           (let* ((result (#_SetFileTime handle (%null-ptr) (%null-ptr) ft))
-                 (err (unless (eql 0 result) (#_GetLastError))))
+                 (err (when (eql 0 result) (#_GetLastError))))
             (#_CloseHandle handle)
             (if err