diff --git a/src/test/modules/test_regex/expected/test_regex.out b/src/test/modules/test_regex/expected/test_regex.out
index b62cbac697d..ed1b0cbdb9b 100644
--- a/src/test/modules/test_regex/expected/test_regex.out
+++ b/src/test/modules/test_regex/expected/test_regex.out
@@ -506,7 +506,7 @@ ERROR:  invalid regular expression: quantifier operand invalid
 select * from test_regex('?', '', '-');
 ERROR:  invalid regular expression: quantifier operand invalid
 -- These two are not yet incorporated in Tcl, cf
--- https://core.tcl-lang.org/tcl/artifact/106269fa65d96b83
+-- https://core.tcl-lang.org/tcl/tktview?name=5ea71fdcd3291c38
 -- expectError	6.21 -		{x(\w)(?=(\1))}	ESUBREG
 select * from test_regex('x(\w)(?=(\1))', '', '-');
 ERROR:  invalid regular expression: invalid backreference number
diff --git a/src/test/modules/test_regex/sql/test_regex.sql b/src/test/modules/test_regex/sql/test_regex.sql
index 272dfc0cd60..4676cd1a060 100644
--- a/src/test/modules/test_regex/sql/test_regex.sql
+++ b/src/test/modules/test_regex/sql/test_regex.sql
@@ -171,7 +171,7 @@ select * from test_regex('+', '', '-');
 select * from test_regex('?', '', '-');
 
 -- These two are not yet incorporated in Tcl, cf
--- https://core.tcl-lang.org/tcl/artifact/106269fa65d96b83
+-- https://core.tcl-lang.org/tcl/tktview?name=5ea71fdcd3291c38
 -- expectError	6.21 -		{x(\w)(?=(\1))}	ESUBREG
 select * from test_regex('x(\w)(?=(\1))', '', '-');
 -- expectMatch	6.22 HP		{x(?=((foo)))}	xfoo	x