Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/ams/tcl/ams-procs.tcl	25 Apr 2018 19:47:46 -0000	1.55
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	26 Apr 2018 08:56:37 -0000	1.56
@@ -682,7 +682,7 @@
 	
 	# Control list to know which attributes are already in the
 	# elements list so we don't en up with duplicates
-	set control_list [list]
+	set control_list {}
 	
 	set all_attributes [db_list_of_lists select_values {}]
 	
@@ -696,7 +696,7 @@
 		set widget          [lindex $attribute 4]
 		set value           [lindex $attribute 5]
 		
-		set val [list]
+		set val {}
 		if { [regexp "\{text/.*\}" $value value_format] } {
 		    lappend val [lindex $value_format 0]
 		    lappend val [list [string range $value [expr [string length $value_format] + 1] [string length $value]]]