Index: generic/regc_nfa.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/regc_nfa.c,v
retrieving revision 1.8
diff -u -r1.8 regc_nfa.c
--- generic/regc_nfa.c	14 Nov 2007 11:04:59 -0000	1.8
+++ generic/regc_nfa.c	15 Nov 2007 17:01:22 -0000
@@ -1133,7 +1133,8 @@
 
     do {
 	progress = 0;
-	for (s = nfa->states; s != NULL && !NISERR(); s = nexts) {
+	for (s = nfa->states; s != NULL && !NISERR()
+		&& s->no != FREESTATE; s = nexts) {
 	    nexts = s->next;
 	    for (a = s->outs; a != NULL && !NISERR(); a = nexta) {
 		nexta = a->outchain;
