Help tweaking lsp

I was kindly given this code which extracts all blocks from a drawing into individual drawing files. However, the only problem is that the individual blocks are exploded when I open the drawing file whereas when they were in the original file they were not exploded. I need to tweak this code somehow so that the block remains unexploded, this way I can browse to them through Design Centre. Can anyone help?

;;Make individual dwgs from all the blocks in a drawing
;; By Mark S. Thomas

(defun c:bwblock (/ ss cntr bn)
 (setq ss (ssget "x" '((0 . "INSERT")))
       cntr 0
        )

 (mapcar 'setvar '(filedia cmddia) '(0 0))

 (if (not (zerop (sslength ss)))
   (while (setq ent (ssname ss cntr))
      (setq bn (cdr (assoc 2 (entget ent)))
            cntr (1+ cntr)
            )
     ;; wblock each block in the current dwg prefixed with "BLOCK_"
     ;; and sent to c:\temp which must exist
     ;(command "_wblock" (strcat "c:\\temp\\BLOCK_" bn) bn "NO"); for Map
     (command "_wblock" (strcat "c:\\temp\\BLOCK_" bn) bn)
     )
   )
 (mapcar 'setvar '(filedia cmddia) '(1 1))
 )

blocks.lsp

Oh dear, no replies :-(

Umm it is doing a write block, which means it saves the the items in a new dwg, because a block is simple a dwg inserted in to a block.

hope it makes sence