diff --git a/src/fileio.c b/src/fileio.c
index 6d5ed19..ea1f338 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -8017,6 +8017,8 @@
     i = au_find_group(name);
     if (i == AUGROUP_ERROR)	/* the group doesn't exist */
 	EMSG2(_("E367: No such group: \"%s\""), name);
+    else if (i == current_augroup)
+	EMSG(_("E936: Cannot delete the current group"));
     else
     {
 	event_T	event;