Index: openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl,v
diff -u -N -r1.19 -r1.19.2.1
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	17 May 2018 14:19:23 -0000	1.19
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	8 Oct 2019 16:28:28 -0000	1.19.2.1
@@ -1182,13 +1182,14 @@
 }
 
 proc tdav::filter_stuff_nsperm {args} {
-# should be something like "Basic 29234k3j49a"
-    set a [ns_set get [ns_conn headers] Authorization]
-    # get the second bit, the base64 encoded bit
-    set up [lindex [split $a " "] 1]
-    # after decoding, it should be user:password; get the username
-    set user [lindex [split [ns_uudecode $up] ":"] 0]
-
+    # should be something like "Basic 29234k3j49a"
+    set authorization [ns_set iget [ns_conn headers] Authorization]
+    if {[string length $authorization] > 0} {
+        set user [dict get $credentials user]
+        #
+        # GN: this is unfinished (but now fixed) code....
+        #
+    }
     return filter_ok
 }