       ["Process Unit" sw:process-unit t]
       ["Generate Lisp" sw:generate-lisp t]
       ["Generate & Load Lisp" (sw:generate-lisp t) t]
-      ["Generate Local Lisp" sw:cl-current-file t]
+      ["Generate Local Lisp"  sw:gcl-current-file t]
       ["Evaluate Region (:swe)" sw:evaluate-region (mark)]
       ["Set :swe Spec" sw:set-swe-spec t]
       [":cd to this directory" cd-current-directory t] 

  (interactive "r")
  (let ((filename (sw::file-to-specware-unit-id buffer-file-name))
	(text (buffer-substring beg end)))
    (simulate-input-expression (concat ":swe-spec " filename))
    (sleep-for 0.1)
    (simulate-input-expression (concat ":swe " text))))

(defun sw:set-swe-spec ()

  (define-key map "\C-cp"    'sw:process-current-file)
  (define-key map "\C-c\C-p" 'sw:process-unit)
  (define-key map "\C-c\g"   'sw:generate-lisp)
  (define-key map "\C-c\C-l" ' sw:gcl-current-file)
  (define-key map "\C-c\C-e" 'sw:evaluate-region)
  (define-key map "\C-c\C-s" 'sw:set-swe-spec)
  (define-key map "\C-c\C-u" 'sw:cl-unit)
