Index: openacs-4/packages/dbm/www/adduniquekey.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dbm/www/adduniquekey.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dbm/www/adduniquekey.tcl	25 Apr 2018 19:47:47 -0000	1.2
+++ openacs-4/packages/dbm/www/adduniquekey.tcl	9 May 2018 15:33:30 -0000	1.3
@@ -19,7 +19,7 @@
     }
 } -on_submit {
      
-    set output {}
+    set output [list]
 
     foreach el $column {
 	lappend output [concat \"$el\"]