Index: openacs-4/packages/ecommerce/www/admin/tools/spell.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/tools/spell.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/tools/spell.tcl	18 Sep 2002 21:33:56 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/tools/spell.tcl	25 Apr 2018 19:47:47 -0000	1.3
@@ -39,7 +39,7 @@
 proc spell_sorted_list_with_unique_elements {the_list} {
 
     set sorted_list [lsort $the_list]
-    set new_list [list]
+    set new_list {}
 
     set old_element "XXinitial_conditionXX"
     foreach list_element $sorted_list {
@@ -113,7 +113,7 @@
     }
     
     set error_num 0
-    set errors [list]
+    set errors {}
     
     set processed_text ""