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.4 -r1.5
--- openacs-4/packages/wp-slim/www/add-edit-slide.tcl	27 Jun 2015 20:34:41 -0000	1.4
+++ openacs-4/packages/wp-slim/www/add-edit-slide.tcl	26 Apr 2018 08:56:39 -0000	1.5
@@ -116,7 +116,7 @@
 # Creates the bullets list dynamically. The list of list elements has the bullets #
 ###################################################################################
 
-set elements [list]
+set elements {}
 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 [list]
+    set bullet_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 [list]
+    set bullet_items {}
     for {set i 1} {$i <= $array_max} {incr i} {
 	set bullet_value [set bullet.$i]
 	if { $bullet_value ne "" } {