(load (strcat GBL_wd_usr "weblink_upd.lsp"))
weblink_upd_all