diff --git a/sys/fs/procfs/procfs_vnops.c b/sys/fs/procfs/procfs_vnops.c
index 9a40ea3bd38d..7f6c8b6e8478 100644
--- a/sys/fs/procfs/procfs_vnops.c
+++ b/sys/fs/procfs/procfs_vnops.c
@@ -36,7 +36,7 @@
  *
  *	@(#)procfs_vnops.c	8.18 (Berkeley) 5/21/95
  *
- *	$Id: procfs_vnops.c,v 1.47 1997/12/12 03:33:43 sef Exp $
+ *	$Id: procfs_vnops.c,v 1.48 1997/12/13 03:13:46 sef Exp $
  */
 
 /*
@@ -224,11 +224,13 @@ procfs_ioctl(ap)
 	struct vop_ioctl_args *ap;
 {
 	struct pfsnode *pfs = VTOPFS(ap->a_vp);
-	struct proc *procp;
+	struct proc *procp, *p;
 	int error;
 	int signo;
 	struct procfs_status *psp;
+	unsigned char flags;
 
+	p = ap->a_p;
 	procp = pfind(pfs->pfs_pid);
 	if (procp == NULL) {
 		return ENOTTY;
@@ -242,7 +244,15 @@ procfs_ioctl(ap)
 	  procp->p_stops &= ~*(unsigned int*)ap->a_data;
 	  break;
 	case PIOCSFL:
-	  procp->p_pfsflags = (unsigned char)*(unsigned int*)ap->a_data;
+	  /*
+	   * NFLAGS is "non-suser flags" -- currently, only
+	   * PFS_ISUGID ("ignore set u/g id");
+	   */
+#define NFLAGS	(PF_ISUGID)
+	  flags = (unsigned char)*(unsigned int*)ap->a_data;
+	  if (flags & NFLAGS && (error = suser(p->p_ucred, &p->p_acflag)))
+	    return error;
+	  procp->p_pfsflags = flags;
 	  break;
 	case PIOCGFL:
 	  *(unsigned int*)ap->a_data = (unsigned int)procp->p_pfsflags;
diff --git a/sys/kern/kern_exec.c b/sys/kern/kern_exec.c
index 6804d2808768..eca4c3f610dd 100644
--- a/sys/kern/kern_exec.c
+++ b/sys/kern/kern_exec.c
@@ -23,7 +23,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- *	$Id: kern_exec.c,v 1.69 1997/12/06 04:11:09 sef Exp $
+ *	$Id: kern_exec.c,v 1.70 1997/12/16 15:40:29 davidg Exp $
  */
 
 #include <sys/param.h>
@@ -313,7 +313,7 @@ execve(p, uap)
 			p->p_ucred->cr_uid = attr.va_uid;
 		if (attr.va_mode & VSGID)
 			p->p_ucred->cr_gid = attr.va_gid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	} else {
 	        if (p->p_ucred->cr_uid == p->p_cred->p_ruid &&
 		    p->p_ucred->cr_gid == p->p_cred->p_rgid)
diff --git a/sys/kern/kern_prot.c b/sys/kern/kern_prot.c
index 281fc62495e1..787e1867897b 100644
--- a/sys/kern/kern_prot.c
+++ b/sys/kern/kern_prot.c
@@ -36,7 +36,7 @@
  * SUCH DAMAGE.
  *
  *	@(#)kern_prot.c	8.6 (Berkeley) 1/21/94
- * $Id: kern_prot.c,v 1.37 1997/11/06 19:29:12 phk Exp $
+ * $Id: kern_prot.c,v 1.38 1997/12/16 17:40:16 eivind Exp $
  */
 
 /*
@@ -52,6 +52,7 @@
 #include <sys/proc.h>
 #include <sys/malloc.h>
 #include <sys/unistd.h>
+#include <sys/pioctl.h>
 
 static MALLOC_DEFINE(M_CRED, "cred", "credentials");
 
@@ -413,8 +414,8 @@ setuid(p, uap)
 		 * Set real uid
 		 */
 		if (uid != pc->p_ruid) {
-			p->p_flag |= P_SUGID;
 			pc->p_ruid = uid;
+			setsugid(p);
 		}
 		/*
 		 * Set saved uid
@@ -424,8 +425,8 @@ setuid(p, uap)
 		 * is important that we should do this.
 		 */
 		if (pc->p_svuid != uid) {
-			p->p_flag |= P_SUGID;
 			pc->p_svuid = uid;
+			setsugid(p);
 		}
 	}
 
@@ -436,7 +437,7 @@ setuid(p, uap)
 	if (pc->pc_ucred->cr_uid != uid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_uid = uid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -468,7 +469,7 @@ seteuid(p, uap)
 	if (pc->pc_ucred->cr_uid != euid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_uid = euid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -526,8 +527,8 @@ setgid(p, uap)
 		 * Set real gid
 		 */
 		if (pc->p_rgid != gid) {
-			p->p_flag |= P_SUGID;
 			pc->p_rgid = gid;
+			setsugid(p);
 		}
 		/*
 		 * Set saved gid
@@ -537,8 +538,8 @@ setgid(p, uap)
 		 * is important that we should do this.
 		 */
 		if (pc->p_svgid != gid) {
-			p->p_flag |= P_SUGID;
 			pc->p_svgid = gid;
+			setsugid(p);
 		}
 	}
 	/*
@@ -548,7 +549,7 @@ setgid(p, uap)
 	if (pc->pc_ucred->cr_groups[0] != gid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_groups[0] = gid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -576,7 +577,7 @@ setegid(p, uap)
 	if (pc->pc_ucred->cr_groups[0] != egid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_groups[0] = egid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -621,7 +622,7 @@ setgroups(p, uap)
 			return (error);
 		pc->pc_ucred->cr_ngroups = ngrp;
 	}
-	p->p_flag |= P_SUGID;
+	setsugid(p);
 	return (0);
 }
 
@@ -652,18 +653,18 @@ setreuid(p, uap)
 	if (euid != (uid_t)-1 && pc->pc_ucred->cr_uid != euid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_uid = euid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	if (ruid != (uid_t)-1 && pc->p_ruid != ruid) {
 		(void)chgproccnt(pc->p_ruid, -1);
 		(void)chgproccnt(ruid, 1);
 		pc->p_ruid = ruid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	if ((ruid != (uid_t)-1 || pc->pc_ucred->cr_uid != pc->p_ruid) &&
 	    pc->p_svuid != pc->pc_ucred->cr_uid) {
 		pc->p_svuid = pc->pc_ucred->cr_uid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -695,16 +696,16 @@ setregid(p, uap)
 	if (egid != (gid_t)-1 && pc->pc_ucred->cr_groups[0] != egid) {
 		pc->pc_ucred = crcopy(pc->pc_ucred);
 		pc->pc_ucred->cr_groups[0] = egid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	if (rgid != (gid_t)-1 && pc->p_rgid != rgid) {
 		pc->p_rgid = rgid;
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	if ((rgid != (gid_t)-1 || pc->pc_ucred->cr_groups[0] != pc->p_rgid) &&
 	    pc->p_svgid != pc->pc_ucred->cr_groups[0]) {
 		pc->p_svgid = pc->pc_ucred->cr_groups[0];
-		p->p_flag |= P_SUGID;
+		setsugid(p);
 	}
 	return (0);
 }
@@ -879,3 +880,12 @@ setlogin(p, uap)
 		    sizeof(logintmp));
 	return (error);
 }
+
+void
+setsugid(p)
+     struct proc *p;
+{
+	p->p_flag |= P_SUGID;
+	if (!(p->p_pfsflags & PF_ISUGID))
+		p->p_stops = 0;
+}
diff --git a/sys/miscfs/procfs/procfs_vnops.c b/sys/miscfs/procfs/procfs_vnops.c
index 9a40ea3bd38d..7f6c8b6e8478 100644
--- a/sys/miscfs/procfs/procfs_vnops.c
+++ b/sys/miscfs/procfs/procfs_vnops.c
@@ -36,7 +36,7 @@
  *
  *	@(#)procfs_vnops.c	8.18 (Berkeley) 5/21/95
  *
- *	$Id: procfs_vnops.c,v 1.47 1997/12/12 03:33:43 sef Exp $
+ *	$Id: procfs_vnops.c,v 1.48 1997/12/13 03:13:46 sef Exp $
  */
 
 /*
@@ -224,11 +224,13 @@ procfs_ioctl(ap)
 	struct vop_ioctl_args *ap;
 {
 	struct pfsnode *pfs = VTOPFS(ap->a_vp);
-	struct proc *procp;
+	struct proc *procp, *p;
 	int error;
 	int signo;
 	struct procfs_status *psp;
+	unsigned char flags;
 
+	p = ap->a_p;
 	procp = pfind(pfs->pfs_pid);
 	if (procp == NULL) {
 		return ENOTTY;
@@ -242,7 +244,15 @@ procfs_ioctl(ap)
 	  procp->p_stops &= ~*(unsigned int*)ap->a_data;
 	  break;
 	case PIOCSFL:
-	  procp->p_pfsflags = (unsigned char)*(unsigned int*)ap->a_data;
+	  /*
+	   * NFLAGS is "non-suser flags" -- currently, only
+	   * PFS_ISUGID ("ignore set u/g id");
+	   */
+#define NFLAGS	(PF_ISUGID)
+	  flags = (unsigned char)*(unsigned int*)ap->a_data;
+	  if (flags & NFLAGS && (error = suser(p->p_ucred, &p->p_acflag)))
+	    return error;
+	  procp->p_pfsflags = flags;
 	  break;
 	case PIOCGFL:
 	  *(unsigned int*)ap->a_data = (unsigned int)procp->p_pfsflags;
diff --git a/sys/sys/pioctl.h b/sys/sys/pioctl.h
index 0a9434fd46ca..fc4dae9efc28 100644
--- a/sys/sys/pioctl.h
+++ b/sys/sys/pioctl.h
@@ -1,7 +1,7 @@
 /*
  * procfs ioctl definitions.
  *
- * $Id: pioctl.h,v 1.4 1997/12/13 03:13:36 sef Exp $
+ * $Id: pioctl.h,v 1.5 1997/12/15 00:29:41 sef Exp $
  */
 
 #ifndef _SYS_PIOCTL_H
@@ -41,5 +41,5 @@ struct procfs_status {
  */
 
 # define PF_LINGER	0x01	/* Keep stops around after last close */
-
+# define PF_ISUGID	0x02	/* Ignore UID/GID changes */
 #endif 
diff --git a/sys/sys/proc.h b/sys/sys/proc.h
index c66cd2eb8807..bba785faae93 100644
--- a/sys/sys/proc.h
+++ b/sys/sys/proc.h
@@ -36,7 +36,7 @@
  * SUCH DAMAGE.
  *
  *	@(#)proc.h	8.15 (Berkeley) 5/19/95
- * $Id: proc.h,v 1.50 1997/12/06 04:11:14 sef Exp $
+ * $Id: proc.h,v 1.51 1997/12/12 04:00:48 dyson Exp $
  */
 
 #ifndef _SYS_PROC_H_
@@ -342,6 +342,7 @@ int		fork1 __P((struct proc *, int));
 int	trace_req __P((struct proc *));
 void	cpu_wait __P((struct proc *));
 int	cpu_coredump __P((struct proc *, struct vnode *, struct ucred *));
+void		setsugid __P((struct proc *p));
 #endif	/* KERNEL */
 
 #endif	/* !_SYS_PROC_H_ */