Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	9 Dec 2007 16:45:10 -0000	1.30
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	11 Dec 2007 09:07:39 -0000	1.31
@@ -225,7 +225,9 @@
     if {$user_id == -1} {  ;# not specified
       if {[info exists ::ad_conn(user_id)]} {
         my set user_id [ad_conn user_id]
-        my set untrusted_user_id [ad_conn untrusted_user_id]
+        if {[catch {my set untrusted_user_id [ad_conn untrusted_user_id]}]} {
+          my set untrusted_user_id [my user_id]
+        }
       } else {
         my set user_id 0
         my set untrusted_user_id 0
@@ -328,11 +330,11 @@
     if {$party_id == 0} {
       set key permission($object_id,$privilege,$party_id)
       if {[my exists $key]} {return [my set $key]}
-      #my msg "--p lookup $key"
       set granted [permission::permission_p -no_login -party_id $party_id \
                        -object_id $object_id \
                        -privilege $privilege]
-      if {$granted} {
+      #my msg "--p lookup $key ==> $granted uid=[my user_id] uuid=[my set untrusted_user_id]"
+      if {$granted || [my user_id] == [my set untrusted_user_id]} {
         my set $key $granted
         return $granted
       }