Index: openacs-4/packages/photo-album/www/photos-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photos-edit-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/photo-album/www/photos-edit-2.tcl	26 Apr 2018 08:56:38 -0000	1.9
+++ openacs-4/packages/photo-album/www/photos-edit-2.tcl	9 May 2018 15:33:33 -0000	1.10
@@ -26,8 +26,8 @@
 
 set context_list [pa_context_bar_list -final "Edit page $page" $album_id]
 
-set hides {}
-set shows {}
+set hides [list]
+set shows [list]
 foreach id [array names caption] { 
     # create a list of hide and show images.
     if {[info exists hide($id)]} {