Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	12 Mar 2004 18:48:45 -0000	1.23
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	25 Mar 2004 21:51:24 -0000	1.24
@@ -72,7 +72,7 @@
 
     db_transaction {
 
-        if { [empty_string_p authority_id] } {
+        if { [empty_string_p $authority_id] } {
             set authority_id [db_nextval "auth_authority_id_seq"]
         }
 
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	12 Mar 2004 18:48:55 -0000	1.55
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	25 Mar 2004 21:51:24 -0000	1.56
@@ -220,7 +220,7 @@
 	    # save new url
 	    set urls($node_id) $url
 
-	    if { [empty_string_p package_id] } {
+	    if { [empty_string_p $package_id] } {
 		set object_type ""
 	    } else {
 		set object_type "apm_package"
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.18 -r1.19
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	27 Feb 2004 15:48:45 -0000	1.18
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Mar 2004 21:51:24 -0000	1.19
@@ -1313,7 +1313,7 @@
         # Handle 'other_label'
         if { [exists_and_not_null current_filter_value] && \
                  !$found_selected_p && \
-                 ![empty_string_p filter_properties(other_label)] } {
+                 ![empty_string_p $filter_properties(other_label)] } {
 
             # Add filter entry with the 'other_label'.
             lappend filter_properties(values) [list $filter_properties(other_label) {}]
Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	7 Feb 2004 11:47:34 -0000	1.33
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	25 Mar 2004 21:51:24 -0000	1.34
@@ -236,7 +236,7 @@
 
   if { ![string equal $mode "edit"] } {
     set output {}
-    if { ![empty_string_p value] } {
+    if { ![empty_string_p $value] } {
       append output "[ad_quotehtml $value]<input type=\"hidden\" name=\"$name\" value=\"[ad_quotehtml $value]\">"
     }
   } else {
Index: openacs-4/packages/trackback/tcl/trackback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/trackback/tcl/trackback-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/trackback/tcl/trackback-procs.tcl	12 Jan 2004 13:38:15 -0000	1.4
+++ openacs-4/packages/trackback/tcl/trackback-procs.tcl	25 Mar 2004 21:51:25 -0000	1.5
@@ -176,13 +176,13 @@
 	#must be POST
 
 	set form_vars [export_vars -url { url }]
-	if {![empty_string_p excerpt]} {
+	if {![empty_string_p $excerpt]} {
 	    ns_set put $query_set excerpt $excerpt
 	}
-	if {![empty_string_p title]} {
+	if {![empty_string_p $title]} {
 	    ns_set put $query_set title $title
 	}
-	if {![empty_string_p blog_name]} {
+	if {![empty_string_p $blog_name]} {
 	    ns_set put $query_set blog_name $blog_name
 	}