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.31 -r1.32
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	11 Dec 2007 09:07:39 -0000	1.31
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	27 Feb 2008 16:44:25 -0000	1.32
@@ -104,6 +104,16 @@
     #my log "--cc qp [array names queryparm] // $actual_query"
   }
 
+  Context instproc original_url_and_query args {
+    if {[llength $args] == 1} {
+      my set original_url_and_query [lindex $args 0]
+    } elseif {[my exists original_url_and_query]} {
+      return [my set original_url_and_query]
+    } else {
+      return [my url]?[my actual_query]
+    }
+  }
+
   Context instproc query_parameter {name {default ""}} {
     my instvar queryparm
     return [expr {[info exists queryparm($name)] ? $queryparm($name) : $default}]