diff --git a/retropikzel/r7rs-pffi/sagittarius.scm b/retropikzel/r7rs-pffi/sagittarius.scm
index 8427077..7b2adf3 100644
--- a/retropikzel/r7rs-pffi/sagittarius.scm
+++ b/retropikzel/r7rs-pffi/sagittarius.scm
@@ -147,11 +147,7 @@
           ((equal? type 'uint32) (pointer-ref-c-uint32_t pointer offset))
           ((equal? type 'int64) (pointer-ref-c-int64_t pointer offset))
           ((equal? type 'uint64) (pointer-ref-c-uint64_t pointer offset))
-          ((equal? type 'char)
-           (display "HERE: ")
-           (write pointer)
-           (newline)
-           (integer->char (pointer-ref-c-char pointer offset)))
+          ((equal? type 'char) (integer->char (pointer-ref-c-char pointer offset)))
           ((equal? type 'short) (pointer-ref-c-short pointer offset))
           ((equal? type 'unsigned-short) (pointer-ref-c-unsigned-short pointer offset))
           ((equal? type 'int) (pointer-ref-c-int pointer offset))