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 -r1.17 -r1.17.2.1
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	11 Mar 2019 19:38:04 -0000	1.17
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	6 May 2021 18:49:53 -0000	1.17.2.1
@@ -80,7 +80,7 @@
             append text [read $fp]
         }
         close $fp
-        file delete $filename
+        file delete -- $filename
     }
     return $text
 }
@@ -89,7 +89,7 @@
     code
     msg
 } {
-    Format a fault response to a XML-RPC request
+    Format a fault response to an XML-RPC request
 
     @param code  error code (integer)
     @param msg   error message
@@ -212,7 +212,7 @@
             }
         }
     } else {
-        # no datatype subnode, therefore it's a string
+        # no datatype subnode, therefore, it's a string
         set result [xml_node_get_content $node]
     }
     return $result
@@ -567,7 +567,7 @@
 }
 
 ad_proc -private xmlrpc::parse_response {xml} {
-    Parse the response from a XML-RPC call.
+    Parse the response from an XML-RPC call.
 
     @param xml the XML response
     @return result
@@ -626,7 +626,7 @@
         return $result
     }
 
-    # check that the provided XML is non-empty
+    # check that the provided XML is nonempty
     if { $xml eq "" } {
         set result [xmlrpc::fault 3 "Empty XML document passed to XML-RPC"]
         ns_log error "xmlrpc::invoke fault $result"