diff --git a/libguile/goops.c b/libguile/goops.c
index b9389f9b9..ad0f04c9c 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -977,8 +977,6 @@ SCM_DEFINE (scm_slot_set_x, "slot-set!", 3, 0, 0,
 }
 #undef FUNC_NAME
 
-const char *scm_s_slot_set_x = s_scm_slot_set_x;
-
 SCM_DEFINE (scm_slot_bound_p, "slot-bound?", 2, 0, 0,
 	    (SCM obj, SCM slot_name),
 	    "Return @code{#t} if the slot named @var{slot_name} of @var{obj}\n"
diff --git a/libguile/goops.h b/libguile/goops.h
index 763302991..08e8c62cf 100644
--- a/libguile/goops.h
+++ b/libguile/goops.h
@@ -212,7 +212,6 @@ SCM_API SCM scm_class_scm;
 SCM_API SCM scm_class_int;
 SCM_API SCM scm_class_float;
 SCM_API SCM scm_class_double;
-SCM_API const char *scm_s_slot_set_x;
 
 SCM_API SCM scm_module_goops;