Coffee: AllocTag und CallButton

[rown]

Hallo Leute,

habe hier ein Script...

main(doc,op)
{
var green=doc->FindObject("green");
var vio=doc->FindObject("vio");
var o=doc->FindObject("obj");

if(o==Null)
  {
   var obj=AllocObject(Onull);
		doc->InsertObject(obj,NULL,NULL);
		obj->SetName("obj");
   var ctag=AllocTag(1019364);
		obj->InsertTag(ctag, Null);
		ctag#ID_CA_CONSTRAINT_TAG_PSR=true;
		CallButton(ctag,ID_CA_CONSTRAINT_TAG_PSR_ADD);
		CallButton(ctag,ID_CA_CONSTRAINT_TAG_PSR_ADD);
		ctag#10005=true;
		ctag#10001=green;
		ctag#10015=true;
		ctag#10011=vio;
  }
}

...und bis zur CallButton-Stelle läuft alles soweit gut. Aber eben diese Befehle will er nicht immer durchführen. Kann mir jemand sagen, was ich hier übersehe?

Besten Dank
Rown