(define (delete:body)
  (let* ((msg (ui:form-datum "msg")))
    (list
     (if (delete-attestation! msg) 
	 (format #f "You no longer claim ~s.~%"
		 msg)
	 "You did not have that attestation before.")
     "<p><a href=\"attestations.html\">Return to your attestations</a>\n")))
	
