Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -N -r1.70.2.22 -r1.70.2.23
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Mar 2021 10:45:25 -0000	1.70.2.22
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	20 Apr 2021 09:35:56 -0000	1.70.2.23
@@ -836,18 +836,15 @@
       #
       # Called interactively
       #
-      foreach {key value} [ns_set array [ns_parsequery [ns_conn query]]] {
-        if {$key in {"orderby" "__csrf_token"}} continue
-        lappend query [list $key $value]
-      }
       set base [ad_conn url]
     } else {
       #
       # Called in the background (e.g. from search renderer)
       #      
       set base .
     }
-    set href [export_vars -base $base $query]
+    set href $base?[::xo::update_query [ns_conn query] $orderby_name $new_orderby]
+    
     html::a -href $href -title $title {
       html::t [:_ label]
       html::img -src $img -alt ""