[Fwd: Issue with block command 'NEXT']

It's not the next iteration of the for loop that runs into an error, but the last. Remember? You let it run to the length of the block, but inbetween the loop you remove one item, so the loop runs over the end of your block.

'pick "picks" an element out of a block, in other words, what 'pick returns has no indication that it is part of a block. 'remove on the other hand, removes the _current_ _element_ from a block. Can you put it together yourself? 'pick returns the element, 'remove sees "ah, that's a block", so it removes the first value from the block, the _element_ returned. What you are really looking for is 'at which returns a block at a specified position. So here's my version: [REBOL [] remove-data: func [lottery-name ticket-value /local i] [ i: 1 ; loop is faster, and we want to take care of the incrementation ourselves loop length? database [ ; use either to only increment i if no removal took place either all [ equal? first pick database i lottery-name equal? second pick database i ticket-value ][ ; end all remove at database i ; use at print [" "] print ["Yes, the ticket: " lottery-name " " ticket-value " was removed"] ;save db-file database ; no need to increment i here, we're on the next element automatically ][ ; increment i only if no element has been deleted i: i + 1 ] ;end either ; make sure we don't run over the end of the database, because of deleted elements if i > length? database [break] ] ;end loop ] ;end func db: copy database: [[1 2][2 3][4 5][4 5][4 3 ][4 7][4 5][6 7][8 9]] remove-data 4 5 database ] I hope that helps, Ingo