diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 29d42686d..ae773cdbf 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,14 @@
+Wed Aug 13 15:38:44 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+*	* gh_io.c (gh_write): New function.
+
+*	* gh_eval.c (catch_with_saved_stack): Removed.  Replaced by:
+	throw.c (scm_internal_stack_catch): New sibling to the other catch
+	functions.  Code moved from gh_eval.c.
+	throw.h: Added header.
+	gh_eval.c (gh_eval_str_with_stack_saving_handler): Renamed call to
+	scm_internal_stack_catch.
+
 Tue Jul 29 01:03:08 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
 	* ioext.h: fix up prototypes.
diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index 567294991..9e19f4d47 100644
--- a/libguile/gh_io.c
+++ b/libguile/gh_io.c
@@ -50,6 +50,12 @@ gh_display (SCM x)
   scm_display (x, scm_current_output_port ());
 }
 
+void 
+gh_write (SCM x)
+{
+  scm_write (x, scm_current_output_port ());
+}
+
 void 
 gh_newline ()
 {