diff --git a/collects/tests/mzscheme/read.ss b/collects/tests/mzscheme/read.ss
index 8d3ac0de6c..6cf0839b70 100644
--- a/collects/tests/mzscheme/read.ss
+++ b/collects/tests/mzscheme/read.ss
@@ -916,6 +916,17 @@
        (parameterize ([read-accept-reader #t])
 	 (read-syntax '??? (open-input-string "#reader reader-test-module 10")))))
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Test 'paren-shape property
+
+(test #f syntax-property (read-syntax 'x (open-input-string "(1 2 3)")) 'paren-shape)
+(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 2 3]")) 'paren-shape)
+(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 . 3]")) 'paren-shape)
+(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 . 3 . 2]")) 'paren-shape)
+(test #\[ syntax-property (read-syntax 'x (open-input-string "#[1 2]")) 'paren-shape)
+(test #\{ syntax-property (read-syntax 'x (open-input-string "{1 2 3}")) 'paren-shape)
+(test #\{ syntax-property (read-syntax 'x (open-input-string "#{1 2}")) 'paren-shape)
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)