Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 8 Jan 2009 16:03:17 -0000 1.17 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 25 Jan 2009 10:49:17 -0000 1.18 @@ -94,7 +94,7 @@ -keep_cc $keep_cc \ -package_id $package_id -user_id $user_id \ -parameter $parameter -url $url -actual_query $actual_query - + if {[info exists original_url_and_query]} { ::xo::cc original_url_and_query $original_url_and_query }