Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.102 -r1.103
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Dec 2007 21:00:25 -0000	1.102
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Dec 2007 16:44:08 -0000	1.103
@@ -222,7 +222,15 @@
                       -object_id $id -privilege $privilege -party_id $party_id] }]
     } else {
       # determine privilege from policy
-      set granted [my check_permissions -user_id $party_id -package_id $id -link $computed_link $object $method]
+      if {[catch {
+	set granted [my check_permissions \
+			 -user_id $party_id \
+			 -package_id $id \
+			 -link $computed_link $object $method]
+      } errorMsg ]} {
+	my log "error in check_permissions: $errorMsg"
+	set granted 0
+      }
       #my msg "--p $id check_permissions $object $method ==> $granted"
     }
     #my log "granted=$granted $computed_link"