Do a (print-disk-label) on cadr-12. Notice that it shows free-space and overlap which is not really there. Somewhere in (si:edit-disk-label) it should sort the partitions by start address so that this doesn't happen.