diff --git a/read-char-if.scm b/read-char-if.scm
index 2fe812e..b31890a 100644
--- a/read-char-if.scm
+++ b/read-char-if.scm
@@ -4,12 +4,8 @@
         (else #f)))
 
 (define (read-char? k)
-  ;;(fprintf (current-error-port) "read-char? ~a~%" k)
   (and (match-char? k (peek-char))
-       (begin (let ((char (read-char)))
-                ;;(display char (current-error-port))
-                ;;(newline (current-error-port))
-                char))))
+       (begin (read-char))))
 
 (define (read-char* k)
   (let* ((first-char (read-char? k))
diff --git a/tex-parser.scm b/tex-parser.scm
index 7da39b0..28b41b3 100644
--- a/tex-parser.scm
+++ b/tex-parser.scm
@@ -30,11 +30,9 @@
     (if (read-char? sentinel)
         things
         (let ((thing (read-tex-thing)))
-          (cond ((not thing)
-                 things)
-                (else
-                 ;;(fprintf (current-error-port) "Read thing: ~a~%" thing)
-                 (loop (append things (list thing)))))))))
+          (if (not thing)
+              things
+              (loop (append things (list thing))))))))
 
 (define (read-tex-document)
   (read-tex-until eof-object?))