Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	19 Mar 2011 17:24:24 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	20 Aug 2011 20:21:57 -0000	1.4
@@ -321,7 +321,7 @@
         incr tokenCursor
 
         set leadingChar [string index $token 0]
-        switch -exact $leadingChar {
+        switch -exact -- $leadingChar {
             "\{" {
                 return [parseObject $tokens $nrTokens tokenCursor]
             }