From e6234ebd9eee4103895700bbfefb6949c5341d75 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 31 Mar 2017 13:00:19 -0700
Subject: [PATCH] encoding conversion

---
 pitfall/pitfall/render.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pitfall/pitfall/render.rkt b/pitfall/pitfall/render.rkt
index 8857f147..655e368c 100644
--- a/pitfall/pitfall/render.rkt
+++ b/pitfall/pitfall/render.rkt
@@ -21,7 +21,7 @@
     (cond
       [(co-version? x)
        @string-append{%%PDF-@(number->string (co-version-num x))}]
-      [(co-header? x) (co-header-string x)]
+      [(co-header? x) (loop (co-header-string x))]
       [(co-array? x)
        @string-append{[ @(string-join (map loop (co-array-items x)) " ") ]}]
       [(co-io? x)
@@ -47,5 +47,5 @@
       [(co-comment? x) (co-comment-text x)]
       [(symbol? x) @string-append{/@(symbol->string x)}]
       [(number? x) @number->string{@x}]
-      [(string? x) x]
+      [(string? x) (bytes->string/utf-8 (string->bytes/latin-1 x))]
       [else (format "~a" x)])))
\ No newline at end of file