LiSP echoing commands to command line - HELP!

Attached is a portion of my program. This section will select the blocks and explode them.
(setvar "CMDECHO" 0)

(explode_block)

) ;ends program

;;;;;Select the blocks and explode them
(Defun explode_block ()
(setq block_group (ssget "X" '((0 . "INSERT"))))
(if (/= block_group nil) (setq block_group_length (sslength block_group)))
(setq block_counter 0)
(while (< block_counter block_group_length)
(setq block_entity (ssname block_group block_counter))
(command "EXPLODE" block_entity "")
(setq block_counter (+ block_counter 1))
); ends while
) ;ends explode_block function

the problem is, it keeps sending lines like the following to the command line:
Unknown command "HOLLOW". Press F1 for help.
Unknown command "HOLLOW". Press F1 for help.
Unknown command "HOLLOW". Press F1 for help.
Unknown command "HOLLOW". Press F1 for help.

How do I get it to stop doing this? I tried setting the CMDECHO to 0, but that does not seem to be working.

Thanks,
Mark

 

try removing the "" after (command "EXPLODE" block_entity )

CJ

that does not seem to be working.

 

(Defun explode_block ( / block_group)
(if (setq block_group (ssget "_X" '((0 . "INSERT"))))
(progn
(setvar "QAFLAGS" 1)
(command "_.EXPLODE" block_group "")
(setvar "QAFLAGS" 0)
)
)
)


--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

Thank you both for your help. It does not echo the command anymore!

Mark