The 'too many arguments' error comes from the code:

(defvar fi:default-epoch-gesture-binding-list
    (list (list 'fi:epoch-gesture-describe   '(shift button1))
	  (list 'fi:epoch-gesture-inspect    '(control button1))
	  (list 'fi:epoch-gesture-edit       'button2)
	  (list 'fi:epoch-gesture-select     '(shift button2))
	  (list 'fi:epoch-gesture-menu       'button3))
;  "*The mapping of mouse clicks onto logical gestures.
;Each entry is a list of:
;
;   - The command to send the gesture, and
;   - the button on which to bind the gesture.
;
;The function should be defined in this way:
;
;   (defun fi:epoch-gesture-select (e)
;     (interactive "e")
;     (fi::interrupt-process-for-gesture e ':select))
					;"
  )

where the original doesn't have the semicolons.
(This in fi-leep-xemacs.el).