diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index c664e05..cd852cb 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -164,7 +164,7 @@
 (define-foreign user-gid  (getgid) gid_t)
 (define-foreign user-effective-gid (getegid) gid_t)
 
-(define-foreign set-gid/errno (setgid (gid_t id))
+(define-foreign set-gid/errno (setgid (gid_t id)) no-declare ; for SunOS 4.x 
   (to-scheme integer errno_or_false))
 
 (define-errno-syscall (set-gid gid) set-gid/errno)
@@ -191,7 +191,7 @@
 (define-foreign user-uid		(getuid)  uid_t)
 (define-foreign user-effective-uid 	(geteuid) uid_t)
 
-(define-foreign set-uid/errno (setuid (uid_t id))
+(define-foreign set-uid/errno (setuid (uid_t id)) no-declare ; for SunOS 4.x
   (to-scheme integer errno_or_false))
 
 (define-errno-syscall (set-uid uid_t) set-uid/errno)