Index: openacs-4/packages/photo-album/www/photo-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photo-add-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/photo-album/www/photo-add-2.tcl	6 Sep 2013 17:17:44 -0000	1.8
+++ openacs-4/packages/photo-album/www/photo-add-2.tcl	14 Oct 2013 17:56:29 -0000	1.9
@@ -32,7 +32,7 @@
          
 	    foreach {base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256} $photo_info { break } 
  
-	    if [empty_string_p $base_mime] { 
+	    if {$base_mime eq ""} { 
            set base_mime invalid 
 	    }