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.19.2.1 -r1.19.2.2
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	4 Oct 2002 12:12:08 -0000	1.19.2.1
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	28 Mar 2003 13:43:28 -0000	1.19.2.2
@@ -804,19 +804,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
+    }
 }