diff --git a/libguile/procs.c b/libguile/procs.c
index 66989d5e8..735a76c26 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -434,7 +434,7 @@ scm_make_subr_with_generic (const char *name, int type, SCM (*fcn) (), SCM *gf)
     ("`scm_make_subr_with_generic' is deprecated.  Use "
      "`scm_c_define_subr_with_generic' instead.");
   
-  return scm_c_define_subr_with_generic (name, type, fcn);
+  return scm_c_define_subr_with_generic (name, type, fcn, gf);
 }
 
 #endif /* !SCM_DEBUG_DEPRECATION */