diff --git a/libguile/Makefile.am b/libguile/Makefile.am
index b2762e351..885de72c4 100644
--- a/libguile/Makefile.am
+++ b/libguile/Makefile.am
@@ -77,6 +77,8 @@ scmconfig.h: ${top_builddir}/config.h gen-scmconfig$(EXEEXT)
 	rm -f scmconfig.h
 	mv scmconfig.h.tmp scmconfig.h
 
+# Generate aliases for `SCM_DEFINE_GSUBR'.  Since there's a lot of
+# them, it's an efficient compression method.
 snarf-gsubr.h:
 	( echo "/* Automatically generated, do not edit.  */" ;						\
 	  for req in `seq 0 16`; do									\
diff --git a/libguile/procs.c b/libguile/procs.c
index 307be4380..f99b524d0 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -38,19 +38,13 @@
  */
 
 
-/* libguile contained approx. 700 primitive procedures on 24 Aug 1999. */
-
-/* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on
-   startup, 786 with guile-readline.  'martin */
-
 SCM
 scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
 {
   register SCM z;
   SCM *meta_info;
 
-  meta_info = scm_gc_malloc (2 * sizeof (* meta_info),
-			     "subr meta-info");
+  meta_info = scm_gc_malloc (2 * sizeof (*meta_info), "subr meta-info");
   meta_info[0] = scm_from_locale_symbol (name);
   meta_info[1] = SCM_EOL;  /* properties */