Index: openacs-4/packages/wp-slim/www/add-edit-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/add-edit-slide.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/wp-slim/www/add-edit-slide.tcl	26 Apr 2018 08:56:39 -0000	1.5
+++ openacs-4/packages/wp-slim/www/add-edit-slide.tcl	9 May 2018 15:33:33 -0000	1.6
@@ -116,7 +116,7 @@
 # Creates the bullets list dynamically. The list of list elements has the bullets #
 ###################################################################################
 
-set elements {}
+set elements [list]
 for {set j 1} {$j <= $array_max} {incr j} {
     set element [list bullet.$j:text(text),optional \
 			    {html { size 60 }} \
@@ -202,7 +202,7 @@
 ad_form -extend -name f -new_data {
 
     # makes a bullet list to send to the procedure
-    set bullet_list {}
+    set bullet_list [list]
     for {set i 1} {$i <= $array_max} {incr i} {
 	set bullet_value [set bullet.$i]
 	if { $bullet_value ne "" } {
@@ -224,7 +224,7 @@
 } -edit_data {
   
     # makes a bullet list to send to the procedure
-    set bullet_items {}
+    set bullet_items [list]
     for {set i 1} {$i <= $array_max} {incr i} {
 	set bullet_value [set bullet.$i]
 	if { $bullet_value ne "" } {