Index: openacs-4/contrib/packages/cop-ui/www/related/relate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/related/relate.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/cop-ui/www/related/relate.tcl	15 Jun 2004 11:11:08 -0000	1.3
+++ openacs-4/contrib/packages/cop-ui/www/related/relate.tcl	17 Mar 2005 08:32:01 -0000	1.4
@@ -17,7 +17,7 @@
 set title "Relate"
 if {![empty_string_p $object_one]} {
     set object_name [db_string object_name {select coalesce(o.title,acs_object__name(:object_one)) from acs_objects o where o.object_id = :object_one;} -default {}]
-    if {![empty_string_p object_name]} { 
+    if {![empty_string_p $object_name]} { 
         append title " to $object_name"
     } else { 
         append title " to object $object_one"
Index: openacs-4/contrib/packages/project-manager/www/calendar-users-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/calendar-users-update.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/project-manager/www/calendar-users-update.tcl	1 Mar 2005 00:01:20 -0000	1.3
+++ openacs-4/contrib/packages/project-manager/www/calendar-users-update.tcl	17 Mar 2005 08:32:23 -0000	1.4
@@ -17,7 +17,7 @@
 
 set user_id [auth::require_login]
 
-if {[empty_string_p party_id]} {
+if {[empty_string_p $party_id]} {
     set party_id [list $user_id]
 }
 
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.84 -r1.85
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	10 Mar 2005 15:20:48 -0000	1.84
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	17 Mar 2005 08:33:04 -0000	1.85
@@ -1986,7 +1986,7 @@
     set __the_body__ [read $file]
     close $file
     # Interpolate the vars.
-    if {![empty_string_p binds]} { 
+    if {![empty_string_p $binds]} { 
         foreach {var val} $binds {
             set $var [ad_quotehtml $val]
         }