     global-map
     [menu-bar debug-menu debug-routine]
     '("Debug Current Routine" . lkm-debug-routine))
+
+  (define-key
+    global-map
+    [menu-bar debug-menu stop-debugger]
+    '("Stop Debugger" . lkm-stop-debugger))    
 
   (define-key
     global-map

  (define-key
    global-map
    [menu-bar debug-menu send-input]
    '("Send Input to Process" . lkm-debug-routine))

  (define-key
    global-map
    [menu-bar debug-menu step-over]
    '("Step Over" . lkm-debug-routine))
  
  (define-key
    global-map
    [menu-bar debug-menu step-out]
    '("Step Out" . lkm-debug-routine))  

  (define-key
    global-map
    [menu-bar debug-menu step-into]
    '("Step Into" . lkm-debug-routine))

  (define-key
    global-map
    [menu-bar debug-menu start-debugger]
    '("Clear All Breakpoints" . lkm-clear-all-breakpoints))    

  (define-key

  (with-current-buffer (get-buffer-create "*MUMPS Global Examiner*")
    (goto-char (point-max))
    (insert "MUMPS Global Dump of " global "\n\n"))
  (call-process "mumps" nil "*MUMPS Global Examiner*" nil "-r" "KBAWDUMP" global)
  (display-buffer (get-buffer "*MUMPS Global Examiner*") t)
  (with-current-buffer (get-buffer-create "*MUMPS Global Examiner*")
    (goto-char (point-max))))
