===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/rcs/rcsprog.c,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -r1.161 -r1.162
--- src/usr.bin/rcs/rcsprog.c	2016/07/04 01:39:12	1.161
+++ src/usr.bin/rcs/rcsprog.c	2020/06/09 20:05:40	1.162
@@ -1,4 +1,4 @@
-/*	$OpenBSD: rcsprog.c,v 1.161 2016/07/04 01:39:12 millert Exp $	*/
+/*	$OpenBSD: rcsprog.c,v 1.162 2020/06/09 20:05:40 joris Exp $	*/
 /*
  * Copyright (c) 2005 Jean-Francois Brousseau <jfb@openbsd.org>
  * All rights reserved.
@@ -518,6 +518,14 @@
 				 */
 				if (rdp->rd_flags & RCS_RD_SELECT) {
 					rcsnum_tostr(rdp->rd_num, b, sizeof(b));
+
+					if (rdp->rd_locker != NULL) {
+						errx(1, "%s: can't remove "
+						    "locked revision %s",
+						    fpath, b);
+						continue;
+					}
+
 					if (!(rcsflags & QUIET)) {
 						(void)fprintf(stderr, "deleting"
 						    " revision %s\n", b);