diff --git a/embed.fnc b/embed.fnc
index e057f0f800..7344deb210 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1687,7 +1687,7 @@ Ap	|void	|savestack_grow_cnt	|I32 need
 Am	|void	|save_aelem	|NN AV* av|SSize_t idx|NN SV **sptr
 Ap	|void	|save_aelem_flags|NN AV* av|SSize_t idx|NN SV **sptr \
 				 |const U32 flags
-Ap	|I32	|save_alloc	|I32 size|I32 pad
+Cpd	|I32	|save_alloc	|I32 size|I32 pad
 Apdh	|void	|save_aptr	|NN AV** aptr
 Apdh	|AV*	|save_ary	|NN GV* gv
 Cp	|void	|save_bool	|NN bool* boolp
diff --git a/scope.c b/scope.c
index e62d7335ec..f2625d9662 100644
--- a/scope.c
+++ b/scope.c
@@ -904,6 +904,15 @@ Perl_savetmps(pTHX)
     SS_ADD_END(2);
 }
 
+/*
+=for apidoc_section $stack
+=for apidoc save_alloc
+
+Implements L<perlapi/C<SSNEW>> and kin, which should be used instead of this
+function.
+
+=cut
+*/
 
 I32
 Perl_save_alloc(pTHX_ I32 size, I32 pad)