diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index ae4ca01c7..6f3002e31 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+Mon Feb 10 03:01:48 1997  Mikael Djurfeldt  <mdj@kenneth>
+
+	* boot-9.scm (backtrace): Removed.  (A C version now exists in
+	backtrace.c.)
+
 Fri Jan 24 06:05:36 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
 	* boot-9.scm (read-line!, read-delimited!, read-delimited,
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index a45972a56..5a695f967 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2191,7 +2191,7 @@
       (and next (loop next))))
   (loop (lambda () #t)))
 
-(define the-last-stack #f)
+;;(define the-last-stack #f) Defined by scm_init_backtrace ()
 (define stack-saved? #f)
 
 (define (save-stack . narrowing)
@@ -2240,22 +2240,23 @@
 (define (quit . args)
   (apply throw 'quit args))
 
-(define has-shown-backtrace-hint? #f)
+;;(define has-shown-backtrace-hint? #f) Defined by scm_init_backtrace ()
 
-(define (backtrace)
-  (if the-last-stack
-      (begin
-	(newline)
-	(display-backtrace the-last-stack (current-output-port))
-	(newline)
-	(if (and (not has-shown-backtrace-hint?)
-		 (not (memq 'backtrace (debug-options-interface))))
-	    (begin
-	      (display
-"Type \"(debug-enable 'backtrace)\" if you would like a backtrace
-automatically if an error occurs in the future.\n")
-	      (set! has-shown-backtrace-hint? #t))))
-      (display "No backtrace available.\n")))
+;; Replaced by C code:
+;;(define (backtrace)
+;;  (if the-last-stack
+;;      (begin
+;;	(newline)
+;;	(display-backtrace the-last-stack (current-output-port))
+;;	(newline)
+;;	(if (and (not has-shown-backtrace-hint?)
+;;		 (not (memq 'backtrace (debug-options-interface))))
+;;	    (begin
+;;	      (display
+;;"Type \"(debug-enable 'backtrace)\" if you would like a backtrace
+;;automatically if an error occurs in the future.\n")
+;;	      (set! has-shown-backtrace-hint? #t))))
+;;      (display "No backtrace available.\n")))
 
 (define (error-catching-repl r e p)
   (error-catching-loop (lambda () (p (e (r))))))