Is extract method still working?

Hi

on this expression when I select

KeyedTree new
        at: 1 put: '1-3-1';
        at: 2 put: '1-3-2';
        yourself

I get an error because the method extracted look like the following.

        at: 1 put: '1-3-1';
        at: 2 put: '1-3-2';
        yourself

testSubtrees
        "Test the subtrees method for success and failure modes."

        | t1 t2 t3 t4 |
        t1 := KeyedTree new
                at: 1
                        put:
                        (t2 := KeyedTree new
                                at: 1 put: '1-1';
                                at: 2 put: '1-2';
                                at: 3
                                        put:
                                        (t3 := KeyedTree new
                                                at: 1 put: '1-3-1';
                                                at: 2 put: '1-3-2';
                                                yourself);
                                yourself);
                at: 2 put: '2';
                at: 3
                        put:
                        (t4 := KeyedTree new
                                at: 1 put: '1-3-1';
                                at: 2 put: '1-3-2';
                                yourself);
                yourself.

I wonder if something change in the AST.


--