(defun load_annotative_bloks (/ *error*)
  (defun *error* (msg)
    (setvar "NOMUTT" 0)
    (princ)
    )
  (setvar "nomutt" 1)
  (command "_insert" "annotative_bloks" (command))
  (command "_-purge" "_b" "annotative_bloks" "_n")
  (setvar "nomutt" 0)
  )
