[REBOL] Problems with remove/part refinement

[moeller_thorsten]

Hi all,

i got following script to clean up and modify a file:

REBOL [
    Title:  "Tsbewout - Cleaner"
    Date:   16-Aug-2000
    File:   %tsbewout.r
    Author: "Thorsten Moeller"
    Purpose: {   Cleans tsbewout-file  }
        ]


remove: func [act] [
                        script2: read %tsbewout2
                        parse script2 [some[to act mark: (remove/part mark 1)]]
                        ]

script: read %tsbewout

        trim/with script {"} 

                write %tsbewout2 script


for month 1 12 1 [ l: length? to-string month
                   if l < 2 [month: rejoin [0 to-integer month]]

                        for day 1 31 1 [ year: 100
                                l: length? to-string day
                                if l < 2 [day: rejoin [0 to-integer day]]
                                act: rejoin [year month day]
                                remove act
                                print act
                                        ]
                ]

After starting the script it always hangs with the following error:

1000101
1000102
** Script Error: remove has no refinement called part.
** Where: remove/part mark 1

or it runs in an endless loop in the function.

can anybody help me?

Thorsten