Index: openacs-4/packages/photo-album/www/album.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/album.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/photo-album/www/album.tcl	6 Sep 2013 17:17:43 -0000	1.5
+++ openacs-4/packages/photo-album/www/album.tcl	14 Oct 2013 17:56:29 -0000	1.6
@@ -52,11 +52,11 @@
 db_1row get_album_info {} 
 
 # to move an album need write on album and write on parent folder
-set move_p [expr $write_p && $folder_write_p]
+set move_p [expr {$write_p && $folder_write_p}]
 
 # to delete an album, album must be empty, need delete on album, and write on parent folder
-set has_children_p [expr [pa_count_photos_in_album $album_id] > 0]
-set delete_p [expr !($has_children_p) && $album_delete_p && $folder_write_p]
+set has_children_p [expr {[pa_count_photos_in_album $album_id] > 0}]
+set delete_p [expr {!($has_children_p) && $album_delete_p && $folder_write_p}]
 
 # Did we get a msg id, if so display it at the top of the page
 # TODO: JCD: We should remove it from vars so it does not propigate