Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	25 Apr 2018 19:23:26 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	9 May 2018 15:33:29 -0000	1.17
@@ -294,7 +294,7 @@
     @creation-date 2006-08-31
 
 } {
-    set refs {}
+    set refs [list]
     set http_url [string trimright [ad_url] /]/
     set https_url [string map {http https} $http_url]
     set re "(?:\")(?:$http_url|$https_url|/)(?:o|image|file)/(\\d{1,8})"
@@ -334,7 +334,7 @@
     if {![llength $link_object_ids]} {
 	set link_object_ids [application_data_link::scan_for_links -text $text]
     }
-    set delete_ids {}
+    set delete_ids [list]
     foreach old_link $old_links {
 	if {$old_link ni $link_object_ids} {
 	    lappend delete_ids $old_link