Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	23 Jun 2015 16:34:08 -0000	1.21
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	28 Jun 2015 12:56:09 -0000	1.22
@@ -840,7 +840,7 @@
             continue
         }
 
-        foreach {base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256} $base_info { break }
+        lassign $base_info base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256
         
         # If we don't have a mime type we like we try to make a jpg or png 
         #
@@ -871,7 +871,7 @@
             }
 
             # get info again
-            foreach {base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256} [pa_file_info $image_file] { break }
+            lassign [pa_file_info $image_file] base_bytes base_width base_height base_type base_mime base_colors base_quantum base_sha256
         }
         
         if {$base_mime eq "image/jpeg"} {