Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	13 Feb 2003 13:28:51 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	17 May 2003 10:04:18 -0000	1.25
@@ -821,19 +821,20 @@
 
 } {
 
-    set query_list [ns_conn query]
+    set query_list [export_entire_form_as_url_vars]
 
     foreach {extra_arg} $extra_args {
         lappend query_list [join $extra_arg "="]
     }
 
     if { [llength $query_list] == 0 } {
-        return [ns_conn url]
+        set url [ns_conn url]
     } else {
-        if { $urlencode_p } {
-            return [ns_urlencode "[ns_conn url]?[join $query_list "&"]"]
-        } else {
-            return "[ns_conn url]?[join $query_list "&"]"
-        }
+        set url "[ns_conn url]?[join $query_list "&"]"
     }
+    if { $urlencode_p } {
+        return [ns_urlencode $url]
+    } else {
+        return $url
+    }
 }