DOES> DOER DP
DOES> ( -- pfa )  
smart-word ansi .6.1.1250 <CORE>
does twist the last CREATE word to carry the (DOES>) runtime. That way, using the word will execute the code-piece following DOES> where the pfa of the word is already on stack.

reference: p4_does in ../src/core.c:0981, export CS DOES>