--- orig/libguile/gc.c
+++ mod/libguile/gc.c
@@ -408,6 +408,28 @@
 }
 #undef FUNC_NAME
 
+SCM scm_freelist1_yield (void);
+SCM scm_freelist2_yield (void);
+
+SCM_DEFINE (scm_freelist1_yield, "freelist1-yield", 0, 0, 0,
+	    (void),
+	    "")
+#define FUNC_NAME s_scm_freelist1_yield
+{
+  return (scm_from_long (scm_i_master_freelist.min_yield));
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_freelist2_yield, "freelist2-yield", 0, 0, 0,
+	    (void),
+	    "")
+#define FUNC_NAME s_scm_freelist2_yield
+{
+  return (scm_from_long (scm_i_master_freelist2.min_yield));
+}
+#undef FUNC_NAME
+
+
 /* Update the global sweeping/collection statistics by adding SWEEP_STATS to
    SCM_I_GC_SWEEP_STATS and updating related variables.  */
 static inline void