Index: openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	13 Apr 2017 17:01:54 -0000	1.9
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	16 Apr 2017 10:03:33 -0000	1.10
@@ -645,6 +645,13 @@
         return $result
     }
 
+    # check that the provided XML is non-empty
+    if { $xml eq "" } {
+        set result [xmlrpc::fault 3 "Empty XML document passed to XML-RPC"]
+        ns_log error "xmlrpc::invoke fault $result"
+        return $result
+    }
+    
     ns_log debug "xmlrpc::invoke REQUEST: $xml"
     if {[catch {set doc [xml_parse -persist $xml]} err_msg]} {
         set result [xmlrpc::fault 1 "error parsing request: $err_msg"]