===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/run.c,v
retrieving revision 1.49
retrieving revision 1.50
diff -c -r1.49 -r1.50
*** src/usr.bin/awk/run.c	2020/06/10 21:01:32	1.49
--- src/usr.bin/awk/run.c	2020/06/10 21:02:19	1.50
***************
*** 1,4 ****
! /*	$OpenBSD: run.c,v 1.49 2020/06/10 21:01:32 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
--- 1,4 ----
! /*	$OpenBSD: run.c,v 1.50 2020/06/10 21:02:19 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
***************
*** 515,520 ****
--- 515,523 ----
  	int nsub;
  
  	x = execute(a[0]);	/* Cell* for symbol table */
+ 	if (x == symtabloc) {
+ 		FATAL("cannot delete SYMTAB or its elements");
+ 	}
  	if (!isarr(x))
  		return True;
  	if (a[1] == 0) {	/* delete the elements, not the table */