3 files changed, 9 insertions, 3 deletions

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 5a1b3ff7d5a..fd7097c0956 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-20  Kevin Ryde  <user42@zip.com.au>
+
+        * etags.c (Scheme_functions): Don't loop past a null character
+        (Bug#5601).
+
 2010-01-29  Kester Habermann  <kester@linuxtag.org>  (tiny change)
 
         * etags.c (Fortran_functions): Handle recursive keyword
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 2715df8b5cc..17aad9a2252 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -5004,8 +5004,9 @@ Scheme_functions (inf)
       if (strneq (bp, "(def", 4) || strneq (bp, "(DEF", 4))
         {
           bp = skip_non_spaces (bp+4);
-          /* Skip over open parens and white space */
-          while (notinname (*bp))
+          /* Skip over open parens and white space.  Don't continue past
+             '\0'. */
+          while (*bp && notinname (*bp))
             bp++;
           get_tag (bp, NULL);
         }
diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in
index c38c5c7062e..368e1acb447 100644
--- a/lib-src/makefile.w32-in
+++ b/lib-src/makefile.w32-in
@@ -22,7 +22,7 @@ ALL = make-docfile hexl ctags etags movemail ebrowse sorted-doc digest-doc emacs
 
 .PHONY: $(ALL)
 
-VERSION         = 23.1.92
+VERSION         = 23.1.93
 
 LOCAL_FLAGS     = -DWINDOWSNT -DDOS_NT -DSTDC_HEADERS=1 -DNO_LDAV=1 \
                   -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../nt/inc \