Index: openacs-4/packages/facebook-api/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/facebook-api/tcl/json-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/facebook-api/tcl/json-procs.tcl	25 Apr 2018 19:47:47 -0000	1.3
+++ openacs-4/packages/facebook-api/tcl/json-procs.tcl	9 May 2018 15:33:31 -0000	1.4
@@ -54,7 +54,7 @@
 		    # we are dealing with an Object
 		    getc
 		    set state OBJECT
-		    set dictVal {}
+		    set dictVal [list]
 		}
 		VALUE {
 		    # this object element's value is an Object