   (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" "KBBMLRKM" global)
+  (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))))

  (setq mcmd (format "%s%s" gtm-dist "/mumps"))
  (start-process "debugger" "Debug" mcmd "-r" "^KBBMDBUG"))   

(defun lkm-debug-routine ()
  "Begins debug at current routine"
  (interactive)

    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
