   ([f x args]
      (let [arglist (list* x args)
            fixed-arity (. f -cljs$lang$maxFixedArity)]
-       (if (. f cljs$lang$applyTo)
+       (if (. f -cljs$lang$applyTo)
          (if (<= (bounded-count arglist fixed-arity)
                  fixed-arity)
            (. f apply f (to-array arglist))

  ([f x y z args]
     (let [arglist (list* x y z args)
           fixed-arity (. f -cljs$lang$maxFixedArity)]
       (if (. f cljs$lang$applyTo)
         (if (<= (bounded-count arglist fixed-arity)
                 fixed-arity)
           (. f apply f (to-array arglist))

  First cut.  Not lazy.  Needs to use emitted toApply."
  ([f args]
     (let [fixed-arity (. f -cljs$lang$maxFixedArity)]
       (if (. f -cljs$lang$applyTo)
         (if (<= (bounded-count args (inc fixed-arity))
                 fixed-arity)
           (. f apply f (to-array args))
