Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.98 -r1.98.2.1
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	12 Feb 2009 15:38:41 -0000	1.98
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	2 Sep 2009 17:32:51 -0000	1.98.2.1
@@ -533,10 +533,12 @@
             }
             if { [security::secure_conn_p] } {
                 # it's a secure connection.
-                ad_returnredirect https://[ad_host][ad_port]$url
+                ad_returnredirect \
+                    -allow_complete_url https://[ad_host][ad_port]$url
                 return "filter_return"
             } else {
-                ad_returnredirect http://[ad_host][ad_port]$url
+                ad_returnredirect \
+                    -allow_complete_url http://[ad_host][ad_port]$url
                 return "filter_return"
             }
         }
@@ -586,7 +588,7 @@
             if { $query ne "" } {
         	set query "?[export_entire_form_as_url_vars]"
             }
-            ad_returnredirect "[ns_conn location][ns_conn url]$query"
+            ad_returnredirect -allow_complete_url "[ns_conn location][ns_conn url]$query"
             return "filter_return"
         }
     }