Sorry after i posted to the list i noticed that the last comment regarding the code was pasted by mistake
the corrected (arghh .. copy and paste inconvenience between emacs and firefox) code snippet should be:
(let ((result form1)) (when result (write-string (escape-string result) s)))
Regards,
Ala'a (cmo-0)