      ;; ("Uninstrument Program" erl-refactor-uninstrument-prog)
       nil
       ("From Tuple To Record" erl-refactor-tuple-to-record)
-      ("Tuple Function Arguments" erl-refactor-tuple-funpar)
+      ("Tuple Function Arguments (beta)" erl-refactor-tuple-funpar)
       nil
       ("Rename a Process" erl-refactor-rename-process)
-      ("Add a Tag to Messages"  erl-refactor-add-a-tag)
+      ("Add a Tag to Messages (beta)"  erl-refactor-add-a-tag)
       ("Register a Process"   erl-refactor-register-pid)
       ("From Function to Process" erl-refactor-fun-to-process)
       nil

        (erlang-menu-delete 'refactor-menu-items erlang-menu-items))
  (erlang-menu-init)
  (when (and erlang-refactor-mode node)
   (erl-spawn (erl-send-rpc node 'wrangler_distel 'stop_processes (list)))
   (setq erlang-refactor-mode nil)))

                              'distel-menu-items
                              erlang-menu-items))
   (erlang-menu-init)
   (erl-spawn (erl-send-rpc node 'application 'start (list 'wrangler_app)))
   (setq erlang-refactor-mode t))

(defun erlang-refactor-off(node)
