diff --git a/libguile/procprop.c b/libguile/procprop.c
index bed745495..693c7a961 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -52,6 +52,7 @@
 #include "procprop.h"
 
 
+SCM_GLOBAL_SYMBOL (scm_sym_system_procedure, "system-procedure");
 SCM_GLOBAL_SYMBOL (scm_sym_arity, "arity");
 
 SCM
diff --git a/libguile/procprop.h b/libguile/procprop.h
index 612115e5b..ea6debd96 100644
--- a/libguile/procprop.h
+++ b/libguile/procprop.h
@@ -51,6 +51,7 @@
 extern SCM scm_i_name;
 extern SCM scm_i_inner_name;
 extern SCM scm_sym_arity;
+extern SCM scm_sym_system_procedure;