diff options
| -rw-r--r-- | share/txr/stdlib/path-test.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/path-test.tl b/share/txr/stdlib/path-test.tl index 635510a9..ee211ff2 100644 --- a/share/txr/stdlib/path-test.tl +++ b/share/txr/stdlib/path-test.tl @@ -144,7 +144,7 @@ (and (or (zerop s.uid) (eql euid s.uid)) (zerop (logand m (logior s-iroth s-iwoth))) - (or (zerop (logand m (logior s-iroth s-iwgrp))) + (or (zerop (logand m (logior s-irgrp s-iwgrp))) (null g.mem) (and (all g.mem (orf (op equal name) (op equal suname)))))))))) |