killing wine dregs

I often have wine finish uncleanly or need to break in if it is  
misbehaving , this leaves some processes lying around and often means wine  
cannot be restarted correctly.

I find killing it by hand labourious so I used the following command to  
clean up and have now defined it as an alias to make life easier.

pgrep wine|while read p; do kill -9 $p ; done;

It works nicely but just wondered if anyone would say OMG dont do that !

TIA.