diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c
index 452f660d54fdf0b9650f1093df74cc4fa2232bad..1918955b51ba94c6c204c45b8a1a585a7dbab9a6 100644
--- a/lisp/x86-arch.c
+++ b/lisp/x86-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.7 1997/11/25 16:30:47 dtc Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.8 1997/11/30 12:04:37 dtc Exp $ 
  *
  */
 
@@ -31,31 +31,6 @@ arch_init(void)
   return "lisp.core";
 }
 
-os_vm_address_t 
-arch_get_bad_addr(HANDLER_ARGS)
-{
-#ifdef __linux__
-  GET_CONTEXT
-#endif
-
-  unsigned int badinst;
-
-  if((context->sc_pc & 3) != 0) return NULL;
-
-  if( (context->sc_pc < READ_ONLY_SPACE_START ||
-       context->sc_pc >= READ_ONLY_SPACE_START+READ_ONLY_SPACE_SIZE) && 
-      ((lispobj *)context->sc_pc < current_dynamic_space ||
-       (lispobj *)context->sc_pc >= current_dynamic_space + DYNAMIC_SPACE_SIZE))
-    return NULL;
-
-  badinst = *(unsigned int *)context->sc_pc;
-#ifdef fixme
-  if((badinst>>27)!=0x16) return NULL;
-  return (os_vm_address_t)(context->sc_regs[(badinst>>16)&0x1f]+(badinst&0xffff));
-#else
-  return NULL;
-#endif
-}
 
 void arch_skip_instruction(context)
 struct sigcontext *context;