Apol doesn't work

[pasis]

Apol shows error message when I try to open a policy:

invalid command name "new_apol_string_vector_t"
invalid command name "new_apol_string_vector_t"
    while executing
"new_apol_string_vector_t"
    (procedure "list_to_str_vector" line 2)
    invoked from within
"list_to_str_vector $modules"
    (procedure "list_to_policy_path" line 7)
    invoked from within
"list_to_policy_path $vars(path_type) $vars(primary_file) $vars(mod_paths)"
    (procedure "Apol_Open_Policy_Dialog::tryOpenPolicy" line 6)
    invoked from within
"Apol_Open_Policy_Dialog::tryOpenPolicy"
    ("uplevel" body line 1)
    invoked from within
"uplevel \#0 $cmd"
    (procedure "Button::_release" line 19)
    invoked from within
"Button::_release .open_policy_dialog.bbox.b0"
    (command bound to event)

[pasis]

Fixed by f6d424a