diff --git a/src/ex_docmd.c b/src/ex_docmd.c
index 0be3a69..0388de8 100644
--- a/src/ex_docmd.c
+++ b/src/ex_docmd.c
@@ -9455,6 +9455,12 @@
     char_u	*fname;
     char_u	*arg = eap->arg;
 
+    if (redir_evalcmd)
+    {
+	EMSG(_("E930: Cannot use :redir inside evalcmd()"));
+	return;
+    }
+
     if (STRICMP(eap->arg, "END") == 0)
 	close_redir();
     else