diff --git a/embed.fnc b/embed.fnc
index 4eb1df93843a..9c6b78445d2c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2224,7 +2224,7 @@ ARdp	|OP *	|newCVREF	|I32 flags				\
 ARdpx	|OP *	|newDEFEROP	|I32 flags				\
 				|NN OP *block
 ARdp	|OP *	|newDEFSVOP
-Cp	|void	|newFORM	|I32 floor				\
+Cdp	|void	|newFORM	|I32 floor				\
 				|NULLOK OP *o				\
 				|NULLOK OP *block
 ARdp	|OP *	|newFOROP	|I32 flags				\
diff --git a/op.c b/op.c
index cb232fa86138..72d9c4555464 100644
--- a/op.c
+++ b/op.c
@@ -12235,6 +12235,14 @@ Perl_newSTUB(pTHX_ GV *gv, bool fake)
     return cv;
 }
 
+/*
+=for apidoc newFORM
+
+Constructs, checks, and returns a format op.
+
+=cut
+*/
+
 void
 Perl_newFORM(pTHX_ I32 floor, OP *o, OP *block)
 {