Nope, this makes cvs dump core

1 files changed, 5 insertions, 8 deletions

diff --git a/gnu/usr.bin/cvs/src/rcs.c b/gnu/usr.bin/cvs/src/rcs.c
index 75626f43a9a..0ffe73f0658 100644
--- a/gnu/usr.bin/cvs/src/rcs.c
+++ b/gnu/usr.bin/cvs/src/rcs.c
@@ -3546,16 +3546,13 @@ expand_keywords (rcs, ver, name, log, loglen, expand, buf, len, retbuf, retlen)
 	srch_len -= (srch_next + 1) - srch;
 	srch = srch_next + 1;
 
-	/* Look for the first non alphanumeric character after the '$'.  */
+	/* Look for the first non alphabetic character after the '$'.  */
 	send = srch + srch_len;
-	if (isalpha(*srch)) /* first character of a tag should be a letter */
-	    for (s = srch+1; s < send; s++)
-		if (! isalnum ((unsigned char) *s))
-		    break;
-	else 
-	    continue;
+	for (s = srch; s < send; s++)
+	    if (! isalpha ((unsigned char) *s))
+		break;
 
-	/* If the first non alphanumeric character is not '$' or ':',
+	/* If the first non alphabetic character is not '$' or ':',
            then this is not an RCS keyword.  */
 	if (s == send || (*s != '$' && *s != ':'))
 	    continue;