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 -r1.6 -r1.7
--- openacs-4/packages/glossar/lib/glossar-file-upload.tcl	30 Oct 2006 11:44:58 -0000	1.6
+++ openacs-4/packages/glossar/lib/glossar-file-upload.tcl	25 Apr 2018 19:47:47 -0000	1.7
@@ -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 [list]
+    set message {}
     while {$upload_number <= $upload_count} {
 	set file [set "upload_file${upload_number}"]
 	set title [set "upload_title${upload_number}"]