--- a/etng-r2/main.scm Sun Jan 18 03:35:15 2009 +0000 +++ b/etng-r2/main.scm Sun Jan 18 11:17:38 2009 +0000 @@ -168,6 +168,7 @@ (cond ((pair? e) (cond ((and (eq? (car e) 'paren) + (pair? (cdr e)) (equal? (cadr e) QUOTE-QNAME)) `("." ,(etng-sexp->string-tree (caddr e)))) (else