SORT/COMPARE is using reversed order when using integer as a result from the function

[Oldes]

In Rebol2:

>> sort/compare [1  10  3 ] func[x y][print [x y] case [x > y [1] x < y [-1] true [0]]]
10 3
1 10
3 1
== [1 3 10]

In Red:

>> sort/compare [1  10  3 ] func[x y][print [x y] case [x > y [1] x < y [-1] true [0]]]
10 1
3 10
3 1
== [1 3 10]

But in Rebol3:

>> sort/compare [1  10  3 ] func[x y][print [x y] case [x > y [1] x < y [-1] true [0]]]
10 1
3 1
3 10
== [10 3 1]

Notice the reversed order!