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.48 -r1.49
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	30 Apr 2009 07:35:10 -0000	1.48
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 Apr 2010 07:22:31 -0000	1.49
@@ -301,9 +301,11 @@
     return [my user_id]
   }
 
-  ConnectionContext instproc returnredirect {url} {
+  ConnectionContext instproc returnredirect {-allow_complete_url:switch url} {
     #my log "--rp"
-    my set __continuation [list ad_returnredirect $url]
+    my set __continuation [expr {$allow_complete_url 
+                                 ? [list ad_returnredirect -allow_complete_url $url] 
+                                 : [list ad_returnredirect $url]}]
     return ""
   }