LISP Block Insert routine no longer works once a parameter is modified

[JAC.95598]

We have a lisp routine that allows me to insert a block by selecting an existing block in the drawing. This also works with dynamic blocks when you first insert them, but once you modify a parameter it no longer works because it is looking for the anonymous name instead of the block name. Does anyone know how I would go about fixing this problem.

[mark.62793]

Here is what I use.

(setq oldblkname (vla-get-EffectiveName (vlax-ename->vla-object (car oldblk))))

Hope this helps.