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.18 -r1.19
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	26 Aug 2022 18:26:27 -0000	1.18
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	3 Sep 2024 15:37:54 -0000	1.19
@@ -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
@@ -465,7 +465,7 @@
     Example:
     <pre>
     xmlrpc::create_context {param value} 78
-    returns ==> "&lt;param>&lt;value&gt;78&lt;/value&gt;&lt;/param&gt;"
+    returns ==> "<param><value>78</value></param>"
     </pre>
 
     @param context context to create
@@ -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"