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 -N -r1.8 -r1.9
--- openacs-4/packages/photo-album/www/photos-edit-2.tcl	7 Aug 2014 07:59:51 -0000	1.8
+++ openacs-4/packages/photo-album/www/photos-edit-2.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -26,8 +26,8 @@
 
 set context_list [pa_context_bar_list -final "Edit page $page" $album_id]
 
-set hides [list]
-set shows [list]
+set hides {}
+set shows {}
 foreach id [array names caption] { 
     # create a list of hide and show images.
     if {[info exists hide($id)]} {