Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -N -r1.58 -r1.59
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	25 Apr 2018 19:23:25 -0000	1.58
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	9 May 2018 15:33:28 -0000	1.59
@@ -342,7 +342,7 @@
              set _errno [catch {
                  if { [info exists bind] && [llength $bind] != 0 } {
                      if { [llength $bind] == 1 } {
-                         set bind_vars {}
+                         set bind_vars [list]
                          set len [ns_set size $bind]
                          for {set i 0} {$i < $len} {incr i} {
                              lappend bind_vars [ns_set key $bind $i] \
@@ -638,7 +638,7 @@
 ad_proc -public ds_get_comments {} {
     Get comments for the current request
 } {
-    set comments {}
+    set comments [list]
     if { [nsv_exists ds_request $::ad_conn(request).comment] } {
         set comments [nsv_get ds_request $::ad_conn(request).comment]
     }