diff --git a/ldb/ldb.c b/ldb/ldb.c
index 6c9d13392fccd3010a17e58d2d2700b2548dd9d2..ceb02711fd7b5a6ba39dfe93a6c3da604b2d8f6e 100644
--- a/ldb/ldb.c
+++ b/ldb/ldb.c
@@ -1,10 +1,9 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.13 1991/05/24 17:52:21 wlott Exp $ */
 /* Lisp kernel core debugger */
 
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/file.h>
-#include <mach.h>
 
 #include "ldb.h"
 #include "lisp.h"
@@ -73,6 +72,7 @@ char *envp[];
     if (core == NULL)
         core = "/usr/misc/.cmucl/lib/lisp.core";
 
+    arch_init();
     os_init();
 
 #if defined(EXT_PAGER)
@@ -94,6 +94,9 @@ char *envp[];
 
     interrupt_init();
 
+    arch_install_interrupt_handlers();
+    os_install_interrupt_handlers();
+
     /* Convert the argv and envp to something Lisp can grok. */
     SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv));
     SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp));