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.8 -r1.9
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	24 Sep 2015 07:38:34 -0000	1.8
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	13 Apr 2017 17:01:54 -0000	1.9
@@ -678,7 +678,9 @@
             ns_log debug "xmlrpc::invoke result $result"
         }
     }
-    xml_doc_free $doc
+    if {[info exists doc]} {
+	xml_doc_free $doc
+    }
 
     return $result
 }