Name: Rolf Mertig Date: 03/15/10-10:18:23 PM Z

Try this:

TensorFunction[R_, i__] :=
  Signature[{i}]*TensorFunction[R, Sequence @@ Sort[{i}]] /;
    !OrderedQ[{i}]

Rolf