diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 1a733a6..a75a908 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -317,8 +317,9 @@
 	  (define (length1? l) (and (pair? l) (null? (cdr l))))
 	  (let ((head (car l)) (tail (cdr l)))
 	    (case head
-	      ((quote quasiquote unquote unquote-splicing) (length1? tail))
-	      (else                                        #f))))
+	      ((quote quasiquote unquote unquote-splicing syntax)
+               (length1? tail))
+	      (else #f))))
 
        (define (read-macro-body l)
 	 (cadr l))
@@ -329,7 +330,8 @@
 	     ((quote)            "'")
 	     ((quasiquote)       "`")
 	     ((unquote)          ",")
-	     ((unquote-splicing) ",@"))))
+	     ((unquote-splicing) ",@")
+             ((syntax)           "#'"))))
 
        (define (drop-repeated l)
 	 (if (null? l)