Added END-TAG parameter to function BODY-FORM.