#13 FPICK does not work

[kiyoneda]

ok> .ver
Ficl version 4.0.31
ok> 1.e0 2.e0 f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]
ok> 0 fpick f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]
ok> 1 fpick f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]

In vm.c

at

---
case ficlInstructionFPick:
...
floatTop[1] = floatTop[- c.i];
---

appending

floatTop++;

to line 2031 seems to solve the problem.