diff --git a/collects/tests/mzscheme/readtable.ss b/collects/tests/mzscheme/readtable.ss
index f60d2e8d43..a1e9314c9c 100644
--- a/collects/tests/mzscheme/readtable.ss
+++ b/collects/tests/mzscheme/readtable.ss
@@ -297,6 +297,39 @@
 	  (test '|#ac| read (open-input-string "#acd"))
 	  (test 'z read (open-input-string "z#acd")))))))
 	
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Map other chars to parens
+
+(let ([try (lambda (open close other-open other-close)
+             (let ([readstr (lambda (s)
+                              (read (open-input-string s)))])
+               (parameterize ([current-readtable
+                               (make-readtable #f
+                                               #\< open #f
+                                               #\> close #f)])
+                 (test '((2) 1 3) readstr (format "<1 . ~a2> . 3~a" open close)))
+               (parameterize ([current-readtable
+                               (make-readtable #f
+                                               open #\a #f
+                                               close #\a #f
+                                               #\< open #f
+                                               #\! #\. #f
+                                               #\> close #f)])
+                 (test '(1 . 2) readstr "<1 . 2>")
+                 (test '(1 . 2) readstr "<1 ! 2>")
+                 (test (string->symbol (format "~a1" open))
+                       readstr (format "~a1 ! 2~a" open close))
+                 (test '(2 1 3) readstr "<1 ! 2 ! 3>")
+                 (test '((2) 1 3) readstr "<1 ! <2> ! 3>")
+                 (test '((2) 1 3) readstr (format "<1 ! ~a2~a ! 3>"
+                                                  other-open other-close))
+                 (err/rt-test (readstr "#<1 2 3>") exn:fail:read?)
+                 (err/rt-test (readstr (format "<1 2 3~a" other-close)) exn:fail:read?)
+                 (test '#(1 2 3 3) readstr "#4<1 2 3>"))))])
+  (try #\( #\) #\[ #\])
+  (try #\[ #\] #\( #\))
+  (try #\{ #\} #\[ #\]))
+  
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)