Artifact ea5410de0312411818bccba58a4b3910d12ec696:
--- tcl/generic/regcomp.c.orig Sat Nov 15 11:38:40 2003 +++ tcl/generic/regcomp.c Sat Nov 15 11:38:32 2003 @@ -553,8 +553,12 @@ if (b->from != pre) break; if (b != NULL) { /* must be split */ - s->tmp = slist; - slist = s; + if (s->tmp == NULL) { /* if not already in the list */ + /* (fixes bugs 505048, 230589, */ + /* 840258, 504785) */ + s->tmp = slist; + slist = s; + } } }