Paste: post-rpc fix

: post-rpc ( rpc url -- rpc )
    ! This needs to do something in the event of an error
    [ send-rpc xml>string utf8 encode "text/xml" <post-data> swap >>data ] dip
    "POST" <client-request> swap >>post-data http-request nip string>xml receive-rpc ;