Fix put-string! and put-sexp!.

Thanks to Seth Alves for reporting the bug and providing a patch.

amazon-s3.scm

@@ -187,7 +187,7 @@
                        content-length: object-length no-xml: #t))
 
 (define (put-string! bucket key string)
-  (put-object! bucket key (lambda () string) (string-length string) "text/plain"))
+  (put-object! bucket key (lambda () (display string)) (string-length string) "text/plain"))
 
 (define (put-sexp! bucket key sexp)
   (let-values (((res request-uri response) (put-string! bucket key (->string sexp))))
@@ -212,4 +212,4 @@
 (define (delete-object! bucket key)
   (perform-aws-request bucket: bucket path: key no-xml: #t verb: "DELETE"))
 
-)
+)