diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss
index 5ca6193735..6dc07d9614 100644
--- a/collects/tests/mzscheme/rx.ss
+++ b/collects/tests/mzscheme/rx.ss
@@ -1491,18 +1491,19 @@
        (#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc"))
        #"(?())"
        #"(?(a))"
-       #"(?(\\1))"
-       #"(?(\\1)a|b|c)"
+       #"(a)(?(\\1))"
+       #"(?(1))"
+       #"(?(1)a|b|c)"
        #"(?(?=x)a|b|c)"
        #"(?(?=x)a"
        #"(?(?=x)a|b"
        #"(?(?=x)a|b|"
-       (#"(a)?(?(\\1)12|b12)" #"a12" (#"a12" #"a"))
-       (#"(a)?(?(\\1)12|b12)" #"b12" (#"b12" #f))
-       (#"(a)?(?(\\1)12|b12)" #"b13" #f)
-       (#"(a)?(?(\\1)|b12)" #"a12" (#"a" #"a"))
-       (#"(a)?(?(\\1)12)" #"a12" (#"a12" #"a"))
-       (#"(a)?(?(\\1)12)" #"b12" (#"" #f))
+       (#"(a)?(?(1)12|b12)" #"a12" (#"a12" #"a"))
+       (#"(a)?(?(1)12|b12)" #"b12" (#"b12" #f))
+       (#"(a)?(?(1)12|b12)" #"b13" #f)
+       (#"(a)?(?(1)|b12)" #"a12" (#"a" #"a"))
+       (#"(a)?(?(1)12)" #"a12" (#"a12" #"a"))
+       (#"(a)?(?(1)12)" #"b12" (#"" #f))
        (#"(?(?=a)a12|b12)" #"a12" (#"a12"))
        (#"(?(?=a)a12|b12)" #"b12" (#"b12"))
        (#"(?(?=a)a12|b12)" #"c12" #f)