Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -121,11 +121,11 @@
   (if (getenv "MT_MEGATEST") (getenv "MT_MEGATEST") "megatest"))
 
 (define (common:read-encoded-string instr)
   (handle-exceptions
    exn
-   (open-input-string (base64:base64-decode instr))
+   (read (open-input-string (base64:base64-decode instr)))
    (read (open-input-string (z3:decode-buffer (base64:base64-decode instr))))))
 
 ;;======================================================================
 ;; S T A T E S   A N D   S T A T U S E S
 ;;======================================================================