Index: /branches/arm/lisp-kernel/arm-exceptions.c
===================================================================
--- /branches/arm/lisp-kernel/arm-exceptions.c	(revision 13847)
+++ /branches/arm/lisp-kernel/arm-exceptions.c	(revision 13848)
@@ -1007,5 +1007,5 @@
       return handle_gc_trap(xp, tcr);
     } else if (IS_UUO(instruction)) {
-      return handle_uuo(xp, instruction);
+      return handle_uuo(xp, info, instruction);
     } else {
       return handle_unimplemented_instruction(xp,instruction,tcr);
@@ -1041,5 +1041,5 @@
 
 Boolean
-handle_uuo(ExceptionInformation *xp, opcode the_uuo) 
+handle_uuo(ExceptionInformation *xp, siginfo_t *info, opcode the_uuo) 
 {
   unsigned 
@@ -1113,5 +1113,7 @@
     switch (UUOA_field(the_uuo)) {
     case 3:
-      Bug(xp, "Debug trap");
+      adjust_exception_pc(xp, bump);
+      bump = 0;
+      lisp_Debugger(xp, info, debug_entry_dbg, false, "Lisp Breakpoint");
       handled = true;
       break;
Index: /branches/arm/lisp-kernel/arm-exceptions.h
===================================================================
--- /branches/arm/lisp-kernel/arm-exceptions.h	(revision 13847)
+++ /branches/arm/lisp-kernel/arm-exceptions.h	(revision 13848)
@@ -43,6 +43,6 @@
 typedef u_int32_t opcode, *pc;
 
-OSStatus
-handle_uuo(ExceptionInformation *, opcode);
+Boolean
+handle_uuo(ExceptionInformation *, siginfo_t *, opcode);