Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	12 Mar 2004 13:44:43 -0000	1.6
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	25 Mar 2004 18:36:05 -0000	1.6.2.1
@@ -708,7 +708,7 @@
     # if ongoing_p is t, then end_date_j should be null
     db_1row project_info { }
 
-    if {[string equal $ongoing_p t] && ![empty_string_p end_date_j]} {
+    if {[string equal $ongoing_p t] && ![empty_string_p $end_date_j]} {
         ns_log Error "Project cannot be ongoing and have a non-null end-date"
         set end_date_j ""
     }
@@ -940,7 +940,7 @@
                 # has precedence. However, sometimes the project is
                 # ongoing, so we have to make sure that there actually
                 # is an end_date_j
-                if {![empty_string_p end_date_j]} {
+                if {![empty_string_p $end_date_j]} {
                     if {$end_date_j < $latest_finish($task_item)} {
                         set latest_finish($task_item) $end_date_j
                     }
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.22 -r1.22.2.1
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	4 Mar 2004 14:52:35 -0000	1.22
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	25 Mar 2004 18:36:05 -0000	1.22.2.1
@@ -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.54.2.1 -r1.54.2.2
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	22 Mar 2004 02:52:32 -0000	1.54.2.1
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	25 Mar 2004 18:36:05 -0000	1.54.2.2
@@ -273,7 +273,7 @@
                 lappend url_by_package_key($package_key) $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.2.1 -r1.18.2.2
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Mar 2004 16:09:54 -0000	1.18.2.1
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Mar 2004 18:36:06 -0000	1.18.2.2
@@ -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.33.2.1
--- 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 18:36:06 -0000	1.33.2.1
@@ -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.4.2.1
--- 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 18:36:06 -0000	1.4.2.1
@@ -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
 	}