Is there any way to redefine an insertion point for a block without actually exploding and redefining?

Does anyone know of a LISP Routine that will allow one to do so?