Extrude - not works correctly in 2013.

Hello all! Why this code works correctly in 2010 max and not in 2013 etc? In 2013 when we pressed on spinner buttons it makes new and new extrude, while it must updates by max undo and undo on commands.
I experienced whis extrude on button instead spineer - works! Also I experienced whis code that cloned objects on spinner entered - it updates and cloned correctly! So, i think that a problem in extrude option.

(
rollout A "" width:120 height:50 (
spinner sE "Extrude :" pos:[0,5] width:115 height:20 range:[-10000,10000,10] type:#float
fn fn_A = (
$.extrusionType = 1
polyop.extrudeFaces $ (polyop.getFaceSelection $) sE.value
)
on A open do (undo on fn_A())
on sE changed val do (max undo; undo on fn_A())
)
createdialog A
)