diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 8aeed39a7..7e87ae9ba 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Thu Mar 13 00:13:41 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+	* boot-9.scm (scm-error): deleted, reimplemented in C.
+
 Mon Mar 10 15:48:31 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
 	* boot-9.scm (process-define-module): Modified to handle both
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 6243736de..eae0ec2be 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -556,9 +556,6 @@
 		  (cdr rest))
 	    (scm-error 'misc-error #f msg args #f)))))
 
-(define (scm-error key subr message args rest)
-  (throw key subr message args rest))
-
 ;; bad-throw is the hook that is called upon a throw to a an unhandled
 ;; key (unless the throw has four arguments, in which case
 ;; it's usually interpreted as an error throw.)