Index: src/xml-rpc.lisp
===================================================================
RCS file: /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp,v
retrieving revision 1.11
diff -r1.11 xml-rpc.lisp
318c318,320
<   string)
---
>   (if (> (length (string-trim '(#\Space #\Newline #\Return)
> 			      string)) 0)
>       string nil))