@@ -30,7 +30,8 @@
(defmethod encode ((string string) stream)
"Encode a string."
- (write-string string stream))
+ ;; (write-string string stream)
+ (format stream "~s" string))
(defmethod encode ((list list) stream)
"Encode a list."