Faster version of bed-op-fix for when you know it's a valid operator.
Macro: bed-op-fix$
(defmacro bed-op-fix$ (x) (cons 'mbe (cons ':logic (cons (cons 'bed-op-fix (cons x 'nil)) (cons ':exec (cons x 'nil))))))