Index: openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl	25 Apr 2018 19:47:47 -0000	1.6
+++ openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl	9 May 2018 15:33:31 -0000	1.7
@@ -98,7 +98,7 @@
     @return sig formatted for Facebook API
 } {
     set sig ""
-    set params_list {}
+    set params_list [list]
     foreach {key value} $params {
         append sig "${key}=${value}"
     }
@@ -134,7 +134,7 @@
     @param list of key value pairs in array get format
     @return formatted key=value&key=value...
 } {
-    set params_list {}
+    set params_list [list]
     foreach {key value} $params {
         lappend params_list [list $key $value]
     }
@@ -146,11 +146,11 @@
 } {
 
 } {
-    set params_list {}
+    set params_list [list]
     foreach {key value} $params {
         lappend params_list [list $key $value]
     }
-    set params {}
+    set params [list]
     foreach l [lsort -index 0 $params_list] {
         lappend params [lindex $l 0] [lindex $l 1]
     }
@@ -298,9 +298,9 @@
 } {
     List of lists id1 id2 friends_p
 } {
-    set all_friends {}
-    set all_friends2 {}
-    set loadedcombo {}
+    set all_friends [list]
+    set all_friends2 [list]
+    set loadedcombo [list]
     # we need to make a list of every combination
     foreach f $friend_ids {
         foreach f2 $friend_ids {