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 -r1.40 -r1.41
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	16 Dec 2008 17:08:51 -0000	1.40
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	11 Sep 2009 17:03:14 -0000	1.41
@@ -705,7 +705,10 @@
       set img /resources/acs-templating/sort-neither.png
     }
     set query [list [list orderby $new_orderby]]
-    foreach pair [split [ns_conn query] &] {
+    if {[catch {set actual_query [ns_conn query]}]} {
+      set actual_query ""
+    }
+    foreach pair [split $actual_query &] {
       foreach {key value} [split $pair =] break
       if {$key eq "orderby"} continue
       lappend query [list [ns_urldecode $key] [ns_urldecode $value]]