parse stack overflow

Can anybody give me any hints why this small script causes stack overflow ? thanks Jose REBOL [] txt-parser: make object! [ text: make string! 30000 html-code: [ ["<" thru ">"] | copy txt to "<" (append text txt) ] parse: func [source [string!]] [ clear text parse source [to "<" some html-code ] text ] ] ;=========================================== page: read %dummy.html result: make string! 0 result: txt-parser/parse page print result _________________________________________________________________ Send and receive Hotmail on your mobile device: http://mobile.msn.com

First guess is because you are redefining the Parse function and then calling it recursively. Cheers, Allen K

Thanks. This is a stupid mistake !