diff --git a/src/misc2.c b/src/misc2.c
index 060a333..a0781d4 100644
--- a/src/misc2.c
+++ b/src/misc2.c
@@ -895,6 +895,19 @@
 }
 
 /*
+ * Same as alloc_clear() but with allocation id for testing
+ */
+    char_u *
+alloc_clear_id(unsigned size, alloc_id_T id UNUSED)
+{
+#ifdef FEAT_EVAL
+    if (alloc_fail_id == id && alloc_does_fail((long_u)size))
+	return NULL;
+#endif
+    return alloc_clear(size);
+}
+
+/*
  * alloc() with check for maximum line length
  */
     char_u *