Adding a new parameter to the cdf for each cell in a library

I need to add a new property to the CDF fro every cell in a library.

The new property name is "model" and the value must be the same as the Cell Name.

I am trying with this:

MYLIB=ddGetObj("LIBRARY")
foreach(cell MYLIB~>cells
   MYCDF=cdfGetBaseCellCDF(cell)
   MYNEWPAR = cdfCreateParam(MYCDF ?name "model" ?type "string" ?defValue "VALUE" ?units "don't use" ?parseAsNumber "no" ?prompt "Model Name" ?editable nil ?storeDefault "no" ?parseAsCEL "yes" )
   cdfSaveCDF(MYCDF)
)

When coping and pasting these lines in to the Virtuoso command line, a have this error:

dd:0x36a45820
*WARNING* Invalid CDF data entry
*Error* cdfiCreateParam: Invalid CDF data entry.

Note that the the parameter "?defValue" in cdfCreateParam is fixed, as I do not know how to obtain the cell name.

Any advise will be really apreciated.