Index: libguile/goops.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/goops.c,v
retrieving revision 1.71
diff -u -r1.71 goops.c
--- libguile/goops.c	18 Sep 2003 20:55:40 -0000	1.71
+++ libguile/goops.c	22 Sep 2003 21:48:05 -0000
@@ -2435,7 +2435,7 @@
  **********************************************************************/
 
 static SCM
-make_class_from_template (char *template, char *type_name, SCM supers, int applicablep)
+make_class_from_template (char const *template, char const *type_name, SCM supers, int applicablep)
 {
   SCM class, name;
   if (type_name)
@@ -2462,7 +2462,7 @@
 }
 
 SCM
-scm_make_extended_class (char *type_name, int applicablep)
+scm_make_extended_class (char const *type_name, int applicablep)
 {
   return make_class_from_template ("<%s>",
 				   type_name,
Index: libguile/objects.h
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/objects.h,v
retrieving revision 1.41
diff -u -r1.41 objects.h
--- libguile/objects.h	5 Apr 2003 19:10:22 -0000	1.41
+++ libguile/objects.h	22 Sep 2003 21:48:05 -0000
@@ -197,7 +197,7 @@
 SCM_API SCM scm_no_applicable_method;
 
 /* Goops functions. */
-SCM_API SCM scm_make_extended_class (char *type_name, int applicablep);
+SCM_API SCM scm_make_extended_class (char const *type_name, int applicablep);
 SCM_API void scm_i_inherit_applicable (SCM c);
 SCM_API void scm_make_port_classes (long ptobnum, char *type_name);
 SCM_API void scm_change_object_class (SCM, SCM, SCM);
Index: libguile/smob.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/smob.c,v
retrieving revision 1.58
diff -u -r1.58 smob.c
--- libguile/smob.c	18 Sep 2003 20:55:40 -0000	1.58
+++ libguile/smob.c	22 Sep 2003 21:48:05 -0000
@@ -269,7 +269,7 @@
 
 
 scm_t_bits 
-scm_make_smob_type (char *name, size_t size)
+scm_make_smob_type (char const *name, size_t size)
 #define FUNC_NAME "scm_make_smob_type"
 {
   long new_smob;
Index: libguile/smob.h
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/smob.h,v
retrieving revision 1.48
diff -u -r1.48 smob.h
--- libguile/smob.h	5 Apr 2003 19:10:22 -0000	1.48
+++ libguile/smob.h	22 Sep 2003 21:48:05 -0000
@@ -30,7 +30,7 @@
 
 typedef struct scm_smob_descriptor
 {
-  char *name;
+  char const *name;
   size_t size;
   SCM (*mark) (SCM);
   size_t (*free) (SCM);