diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 6afd8924e..746ad8315 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-26  Mark Galassi  <rosalia@lanl.gov>
+
+	* gh.h, gh_data.c (gh_symbol2scm): changed gh_symbol2scm() to take
+	a const char * argument, upon suggestion from Lynn Winebarger.
+
 1999-10-26  Gary Houston  <ghouston@freewire.co.uk>
 
 	* strports.c (st_end_input): avoid dubious pointer arithmetic.
diff --git a/libguile/gh.h b/libguile/gh.h
index 69fbad045..bf9d7d5b1 100644
--- a/libguile/gh.h
+++ b/libguile/gh.h
@@ -106,7 +106,7 @@ SCM gh_char2scm(char c);
 SCM gh_str2scm(char *s, int len);
 SCM gh_str02scm(char *s);
 void gh_set_substr(char *src, SCM dst, int start, int len);
-SCM gh_symbol2scm(char *symbol_str);
+SCM gh_symbol2scm(const char *symbol_str);
 SCM gh_ints2scm(int *d, int n);
 SCM gh_chars2byvect(char *d, int n);
 SCM gh_shorts2svect(short *d, int n);
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index b287bb4f9..805f03fa3 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -120,7 +120,7 @@ gh_set_substr (char *src, SCM dst, int start, int len)
 
 /* Return the symbol named SYMBOL_STR.  */
 SCM 
-gh_symbol2scm (char *symbol_str)
+gh_symbol2scm (const char *symbol_str)
 {
   return SCM_CAR (scm_intern (symbol_str, strlen (symbol_str)));
 }