X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/runlisp/blobdiff_plain/2fb0f2a61ed61747f7b8c206849dadc41079e850..2c39b5e665053788124969a3ec17231563db3766:/tests.at

diff --git a/tests.at b/tests.at
index 8c5d0c6..d769420 100644
--- a/tests.at
+++ b/tests.at
@@ -51,7 +51,7 @@ unset RUNLISP_USERCONFIG
 m4_define([PREPARE_LISP_TEST],
 [SETUP_RUNLISP_ENV
 lisp=$1
-LISP=$m4_translit(m4_bregexp([$1], [/.*$], []), [a-z], [A-Z])
+LISP=$m4_translit(m4_bpatsubst([$1], [/.*$], []), [a-z], [A-Z])
 AT_SKIP_IF([test "x$LISP" = x])
 case $lisp in
   */*) opt=${lisp#*/} lisp=${lisp%%/*} ;;