Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.48 -r1.189.2.49
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	26 Jan 2020 17:23:40 -0000	1.189.2.48
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Feb 2020 09:44:14 -0000	1.189.2.49
@@ -4779,9 +4779,18 @@
             file rename -force -- $fn $local_path/$file
         }
     }
+}
 
-
-
+if {[info commands ns_base64urlencode] eq ""} {
+    #
+    # Compatibility for AOLserver or NaviServer before 4.99.17
+    #
+    proc ns_base64urlencode {data} {
+        return [string map {+ - / _ = {} \n {}} [ns_base64encode $data]]
+    }
+    proc ns_base64urldecode {data} {
+        return [ns_base64decode [string map {- +  _ / } $data]]
+    }
 }
 
 # Local variables: