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.26 -r1.27
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	25 Apr 2018 19:47:47 -0000	1.26
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	9 May 2018 15:33:33 -0000	1.27
@@ -695,7 +695,7 @@
     Walk starting at a given directory and return a list
     of all the plain files found
 } { 
-    set files {}
+    set files [list]
     foreach f [glob -nocomplain [file join $dir *]] {
         set type [file type $f]
         switch $type { 
@@ -718,7 +718,7 @@
 } {
     return the image information from a given file
 } { 
-    set info {}
+    set info [list]
     if { [catch {set size [file size $file]} errMsg] } { 
         return -code error $errMsg
     } 
@@ -803,7 +803,7 @@
     @param package_id Optionally specify the package_id owning the album, if this is not called
                       from a page within the photo-album package itself.
 } { 
-    set new_ids {}
+    set new_ids [list]
     set peeraddr [ad_conn peeraddr]
 
     # Create the tmp dir if needed 
@@ -1150,8 +1150,8 @@
 
 } {
     if {$rotation ne "" && $rotation ne "0" } { 
-        set flop {}
-        set files {}
+        set flop [list]
+        set files [list]
 
         # get a list of files to handle sorted by size...
         db_foreach get_image_files {} {