<d:when xmlns:a="http://www.askemos.org/2000/CoreAPI#" xmlns:d="http://www.askemos.org/2005/NameSpaceDSSSL/" test="(equal? (data (form-field "action" (current-node))) "change") ">
<a:reply>
<!-- new body -->
<a:become>
<d:copy-of select="
(let ((new (document-element
(xml-parse (data (form-field 'text (current-node)))))))
(if (eq? (gi new) 'stylesheet) new (error "That can't work!")))"></d:copy-of>
</a:become>
</a:reply>
</d:when>