diff --git a/functional-tests/regex-bench.scm b/functional-tests/regex-bench.scm
index 0fd96fd..1af815a 100644
--- a/functional-tests/regex-bench.scm
+++ b/functional-tests/regex-bench.scm
@@ -2,10 +2,6 @@
         (regex)
         (loops))
 
-(let ((rx (compile-rx
-            (seq (seq (star (lit "a"))
-                      (lit "foo"))
-                 (plus
-                   (lit "b"))))))
-  (time (upto (n 1000000)
-              (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
+(let ((rx (regex "a*foob+")))
+ (time (upto (n 1000000)
+             (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))