From 1a1950d2f5b0b616e5cfc135cdd75518327be3cf Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Wed, 2 Apr 1997 20:12:33 +0000
Subject: [PATCH] Fixed typo bug in set-file-group.

---
 scsh/syscalls.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index b0a0558..54ad5f3 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -313,8 +313,8 @@
 (define-errno-syscall (set-file-group thing gid)
   (lambda (thing gid)
     (generic-file-op thing
-		     (lambda (fd)    (set-fdes-uid&gid/errno fd    gid -1))
-		     (lambda (fname) (set-file-uid&gid/errno fname gid -1)))))
+		     (lambda (fd)    (set-fdes-uid&gid/errno fd    -1 gid))
+		     (lambda (fname) (set-file-uid&gid/errno fname -1 gid)))))
 
 
 ;;; Uses real uid and gid, not effective. I don't use this anywhere.