Index: openacs-4/packages/acs-subsite/www/user/portrait/comment-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/Attic/comment-edit-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/user/portrait/comment-edit-2.tcl	1 Mar 2005 00:01:24 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/user/portrait/comment-edit-2.tcl	10 Jan 2007 21:22:11 -0000	1.4
@@ -12,7 +12,7 @@
 
 set current_user_id [ad_conn user_id]
 
-if [empty_string_p $user_id] {
+if {$user_id eq ""} {
     set user_id $current_user_id
     set admin_p 0
 } else {
@@ -35,7 +35,7 @@
   and a.object_id_one = :user_id
   and a.rel_type = 'user_portrait_rel')"
 
-if { ![empty_string_p $return_url] } {
+if { $return_url ne "" } {
     ad_returnredirect $return_url
 } else {
     ad_returnredirect [ad_pvt_home]