Index: openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	31 Mar 2009 14:39:45 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	31 Mar 2009 15:16:47 -0000	1.15
@@ -161,13 +161,13 @@
 
         content::item::set_live_revision -revision_id $revision_id
         
-        foreach sizename $sizename_list {
-            if { $resized_portrait($sizename) ne "" } {
+        foreach name [array names resized_portrait] {
+            if { $resized_portrait($name) ne "" } {
                 # Delete the item
-                content::item::delete -item_id $resized_portrait($sizename)
+                content::item::delete -item_id $resized_portrait($name)
 
                 # Resize the item
-                image::resize -item_id $item_id -size_name $sizename
+                image::resize -item_id $item_id -size_name $name
             }
         }