работа с DCL файлами

Есть два файла DCL  и LSP.

Pr.dcl

test: dialog { label = "Параллелепипед";

    : spacer{ height=1; }

    : text          { label = "Введите размеры:"; key = "t1"; }
    : edit_box { label = "Длина мм:";              key = "eb_D"; edit_width=10; }
    : edit_box { label = "Ширина мм:";             key = "eb_S"; edit_width=10; }
    : edit_box { label = "Высота мм:";             key = "eb_H"; edit_width=10; }

    : spacer{height=1;}   // вставка пустой строки

    ok_only;
} 

Pr.lsp

setq dcl_id (load_dialog "Pr.dcl"))

(new_dialog "test" dcl_id)

(start_dialog)

(setq D  (get_tile "eb_D"))

Проблема  в  том, что при выполнении файла LSP
функция  get_tile всё время  возвращает  nil.