(si:set-system-source-file "seymour" "dj:diag.ti.uc-tools;cadr-seymour")