Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.57 -r1.57.8.1
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Feb 2009 14:45:58 -0000	1.57
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	27 Aug 2013 11:33:14 -0000	1.57.8.1
@@ -1606,7 +1606,7 @@
             # because then the foreach loop would run more than once
             foreach { label value count } [lrange $elm 0 2] {}
 
-            if { [empty_string_p [string trim $label]] } {
+            if { [string trim $label] eq "" } {
                 set label $filter_properties(null_label)
             }
             switch $filter_properties(type) {
@@ -1742,7 +1742,7 @@
                 # because then the foreach loop would run more than once
                 foreach { label value count } [lrange $elm 0 2] {}
                 
-                if { [empty_string_p [string trim $label]] } {
+                if { [string trim $label] eq "" } {
                     set label $filter_properties(null_label)
                 }
 
@@ -3262,7 +3262,7 @@
 		# because then the foreach loop would run more than once
 		foreach { label value count } [lrange $elm 0 2] {}
 
-		if { [empty_string_p [string trim $label]] } {
+		if { [string trim $label] eq "" } {
 		    set label $filter_properties(null_label)
 		}
 		lappend  options [list $label $value]