$ cat test.scm
(use regex)
(define foo (regexp "(\\./)?tests(/.*)?"))
(define bar (regexp "[^?]+\\?(.+)"))

$ csc test.scm

$ ./test
# ok, no crash

$ ./test -:s10m
# segfault