Fix: W32 file-system flags can be a bignum.

diff --git a/src/runtime/ntprm.scm b/src/runtime/ntprm.scm
index 36ede8068c2896bba42943133192b265c6538755..a6e08f06a20f62c826bd2de2629dfb8a19e4a422 100644 (file)
--- a/src/runtime/ntprm.scm
+++ b/src/runtime/ntprm.scm
@@ -346,9 +346,8 @@ USA.
            ;; Samba normally advertises itself as NTFS, except that
            ;; it doesn't claim to store Unicode on the disk.
            (if (and (string-ci=? name "NTFS")
-                    (fix:= 0
-                           (fix:and (nt-volume-info/file-system-flags info)
-                                    nt-fs-flag/unicode-on-disk)))
+                    (even? (quotient (nt-volume-info/file-system-flags info)
+                                     nt-fs-flag/unicode-on-disk)))
                "Samba"
                name)))
        ""))