diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss
index 6dc07d9614..d651dc9d58 100644
--- a/collects/tests/mzscheme/rx.ss
+++ b/collects/tests/mzscheme/rx.ss
@@ -1519,7 +1519,13 @@
        (#"(?(?<!a)12|13)" #"b12" (#"12"))
        (#"(?(?<!a)12|13)" #"a13" (#"13"))
        (#"(?(?<!a)12|13)" #"b13" #f)
-       (#"(?(?<!a)12|13)" #"a12" #f)))
+       (#"(?(?<!a)12|13)" #"a12" #f)
+       (#"^(E)?(?(1)aa|a)*$" #"Ea" #f)
+       (#"^(E)?(?(1)aa|a)*$" #"Eaa" (#"Eaa" #"E"))
+       (#"^(E)?(?(1)aa|a)*$" #"Eaaa" #f)
+       (#"^(E)?(?(1)aa|a)*$" #"Eaaaa" (#"Eaaaa" #"E"))
+       (#"^(E)?(?(1)aa|a)*$" #"aaa" (#"aaa" #f))
+       (#"^(E)?(?(1)aa|a)*$" #"aaaa" (#"aaaa" #f))))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  Test unicode-property patterns