Index: openacs-4/packages/glossar/lib/glossar-file-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-file-upload.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/glossar/lib/glossar-file-upload.tcl	25 Apr 2018 19:47:47 -0000	1.7
+++ openacs-4/packages/glossar/lib/glossar-file-upload.tcl	9 May 2018 15:33:31 -0000	1.8
@@ -60,7 +60,7 @@
 ad_form -name upload_files -html {enctype multipart/form-data} -form $form_elements -on_request {
 } -on_submit {
     set upload_number 1
-    set message {}
+    set message [list]
     while {$upload_number <= $upload_count} {
 	set file [set "upload_file${upload_number}"]
 	set title [set "upload_title${upload_number}"]