Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	18 Jun 2010 10:26:59 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	29 Jun 2013 22:42:56 -0000	1.22
@@ -131,7 +131,7 @@
     if {![info exists user_id]} {set user_id [::xo::cc user_id]}
     if {![info exists package_id]} {set package_id [::xo::cc package_id]}
     #my msg [info exists package_id]=>$package_id-[my exists logical_package_id]
-    set ctx ""
+    set ctx "::xo::cc"
     if {$link ne ""} {
       set query [lindex [split $link ?] 1]
       set ctx [::xo::Context new -destroy_on_cleanup -actual_query $query]