Index: openacs-4/packages/photo-album/www/photo-iconic.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photo-iconic.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/photo-album/www/photo-iconic.tcl	6 Sep 2013 17:17:44 -0000	1.4
+++ openacs-4/packages/photo-album/www/photo-iconic.tcl	14 Oct 2013 17:56:30 -0000	1.5
@@ -4,7 +4,7 @@
     photo_id:integer,notnull
 } -validate {
     valid_photo -requires {photo_id:integer} {
-	if ![string equal [pa_is_photo_p $photo_id] "t"] {
+	if {[pa_is_photo_p $photo_id] != "t" } {
 	    ad_complain "The specified photo is not valid."
 	}
     }