Index: openacs-4/packages/categories/lib/list-categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/list-categories.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/lib/list-categories.tcl	6 Nov 2008 15:50:44 -0000	1.3
+++ openacs-4/packages/categories/lib/list-categories.tcl	27 Oct 2014 16:41:10 -0000	1.4
@@ -1,8 +1,8 @@
-if {![exists_and_not_null cat]} {
-    set cat {}
+if {![info exists cat]} {
+    set cat ""
 }
 
-if {![exists_and_not_null orderby]} {
+if {(![info exists orderby] || $orderby eq "")} {
     set orderby "object_title"
 }
 set user_id [ad_conn user_id]