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.10 -r1.11
--- openacs-4/packages/photo-album/www/photo-add-2.tcl	7 Aug 2014 07:59:50 -0000	1.10
+++ openacs-4/packages/photo-album/www/photo-add-2.tcl	28 Jun 2015 12:56:09 -0000	1.11
@@ -30,7 +30,7 @@
             ad_complain "error" 
 	    } 
          
-	    foreach {base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256} $photo_info { break } 
+	    lassign $photo_info base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256 
  
 	    if {$base_mime eq ""} { 
            set base_mime invalid