Index: openacs-4/packages/bookmarks/www/bookmark-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/bookmark-edit.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/bookmarks/www/bookmark-edit.tcl	9 Sep 2013 12:19:56 -0000	1.7
+++ openacs-4/packages/bookmarks/www/bookmark-edit.tcl	18 Apr 2014 06:38:29 -0000	1.8
@@ -51,7 +51,7 @@
     ad_return_template "complaint"
 }
 
-if { [empty_string_p $viewed_user_id] } {
+if { $viewed_user_id eq "" } {
     set viewed_user_id [ad_conn user_id]
 }
 
@@ -74,7 +74,7 @@
 # be set directly for this bookmark
 set security_inherit_p [db_string inheritance_p "select security_inherit_p from acs_objects where object_id = :bookmark_id"]
 
-if { [string equal $old_private_p "t"] && [string equal $security_inherit_p "t"] } {
+if { $old_private_p == "t" && $security_inherit_p == "t" } {
     set public_possible_p "f"
 } else {
     set public_possible_p "t"