Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -N -r1.30.2.27 -r1.30.2.28
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	26 Nov 2022 16:47:54 -0000	1.30.2.27
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	23 Jun 2023 12:39:26 -0000	1.30.2.28
@@ -84,7 +84,7 @@
     if {$headers eq ""} {
         set headers [ns_set create headers]
     }
-    set h "Basic [base64::encode ${username}:$password]"
+    set h "Basic [ns_base64encode ${username}:$password]"
     ns_set idelkey $headers "Authorization"
     ns_set put     $headers "Authorization" $h
     return $headers
@@ -903,7 +903,7 @@
             close $rfd
         }
         if {$base64_p} {
-            set content [base64::encode $content]
+            set content [ns_base64encode $content]
         }
         if {$encode_p} {
             set content [encoding convertto $encoding $content]