Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/assign-yourself.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/assign-yourself.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/assign-yourself.tcl	19 Nov 2001 18:27:40 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/assign-yourself.tcl	13 Sep 2002 10:43:57 -0000	1.3
@@ -21,7 +21,7 @@
 	-party_id $user_id \
 	-permanent
 
-if [empty_string_p return_url] {
+if [empty_string_p $return_url] {
     ad_returnredirect task?task_id=$task_id
     return
 } 
Index: openacs-4/contrib/obsolete-packages/photo-album-lite/www/folder-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/photo-album-lite/www/folder-ae-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/photo-album-lite/www/folder-ae-2.tcl	10 Sep 2002 22:23:14 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/photo-album-lite/www/folder-ae-2.tcl	13 Sep 2002 10:44:01 -0000	1.3
@@ -31,7 +31,7 @@
     set default_exp_date "$exp_date(year)-$exp_date(month)-$exp_date(day)"
 }
 
-if [empty_string_p default_prefix] {
+if [empty_string_p $default_prefix] {
     set default_prefix [db_null]
 } else {
     set default_prefix [pl_photo_cleanup_filename $default_prefix]
Index: openacs-4/contrib/obsolete-packages/photo-album-lite/www/photo-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/photo-album-lite/www/photo-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/photo-album-lite/www/photo-edit-2.tcl	10 Sep 2002 22:23:14 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/photo-album-lite/www/photo-edit-2.tcl	13 Sep 2002 10:44:01 -0000	1.3
@@ -25,7 +25,7 @@
 
 set client_filename [pl_photo_cleanup_filename "$root_name$file_extension"]
 
-if { ![info exists caption] || [empty_string_p caption] } {
+if { ![info exists caption] || [empty_string_p $caption] } {
     set caption [db_null]
 }
 
Index: openacs-4/packages/acs-lang/www/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/test.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/test.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/acs-lang/www/test.tcl	13 Sep 2002 10:43:54 -0000	1.2
@@ -26,7 +26,7 @@
 }
 
 db_1row lang_get_lang_name "SELECT nls_language as language FROM ad_locales WHERE language = :lang"
-if [empty_string_p language] {
+if [empty_string_p $language] {
     set language English
 }
 
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	10 Sep 2002 22:22:14 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	13 Sep 2002 10:43:57 -0000	1.12
@@ -78,7 +78,7 @@
         set password_answer [db_null]
     }
 
-    if { [empty_string_p url] } {
+    if { [empty_string_p $url] } {
         set url [db_null]
     }
 
Index: openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	11 Sep 2002 14:03:25 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	13 Sep 2002 10:43:58 -0000	1.2
@@ -58,7 +58,7 @@
 }
 set component_where_clause ""
 set component_filter ""
-if { ![empty_string_p component_id] } {
+if { ![empty_string_p $component_id] } {
     set component_name [db_string component_name "select component_name from bt_components where component_id = :component_id"]
     set component_filter_url "map-patch-to-bugs?[export_vars -url {patch_number component_id return_url offset show_only_open_p interval_size}]"
     if { $show_all_components_p } {
Index: openacs-4/packages/calendar/www/cal-item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/calendar/www/cal-item.tcl	3 Jun 2002 04:08:17 -0000	1.12
+++ openacs-4/packages/calendar/www/cal-item.tcl	13 Sep 2002 10:43:59 -0000	1.13
@@ -83,7 +83,7 @@
 if { $action == "edit" } {
     
     # check so that cal_item_id does exist
-    if { [empty_string_p cal_item_id] } {
+    if { [empty_string_p $cal_item_id] } {
 	# barf error
 	ad_return_complaint 1 "you need to supply a cal_item_id"
     }
Index: openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl	26 May 2002 04:36:50 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl	13 Sep 2002 10:44:00 -0000	1.4
@@ -25,7 +25,7 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-if {![info exists creditcard_id] || ([info exists creditcard_id] && [empty_string_p creditcard_id])} {
+if {![info exists creditcard_id] || ([info exists creditcard_id] && [empty_string_p $creditcard_id])} {
 
     # Insert the address into ec_addresses, update the address in
     # ec_orders
Index: openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl	26 May 2002 04:36:50 -0000	1.5
+++ openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl	13 Sep 2002 10:44:00 -0000	1.6
@@ -92,7 +92,7 @@
 
 set shipment_id [db_nextval ec_shipment_id_sequence]
 
-if { [info exists item_id] && ![empty_string_p item_id] } {
+if { [info exists item_id] && ![empty_string_p $item_id] } {
     set selected_items [join $item_id ", "]
     set sql  [db_map selected_items_select]
 } else {
Index: openacs-4/packages/gatekeeper/tcl/gatekeeper-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/gatekeeper/tcl/gatekeeper-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/gatekeeper/tcl/gatekeeper-procs.tcl	10 Sep 2002 22:22:59 -0000	1.2
+++ openacs-4/packages/gatekeeper/tcl/gatekeeper-procs.tcl	13 Sep 2002 10:44:00 -0000	1.3
@@ -160,7 +160,7 @@
         }
     }
     set extra_cookies [ad_parameter -package_id [ad_conn package_id] "ExtraCookie"]
-    if { ![empty_string_p extra_cookies] } {
+    if { ![empty_string_p $extra_cookies] } {
         lappend return_cookies $extra_cookies
     }
     #ns_log Notice "Sending cookies: $return_cookies"