load_project_window(_Window):-
%  commented out lines give problems...
%	get_env_var('IFE_HOME', _Ife_Home),
%	name(_Ife_Home, _Stra),
%	append(_Stra, "bin/change_pw_set ", _Strb),
%	append(_Strb, _Window, _Cmd),
%	chat_usr([' about to do ', _Cmd,' ...']),
%	shell(_Cmd),
	get_env_var('IFE_HOME', _Ife_Home),
	name(_Ife_Home, _Str1),
	append(_Str1, "lib/ac/ac/kbs/tool_mgr", _Str2),
	name(_PW_fname, _Str2),
	to_bb(journal,[' loading project window ', _PW_fname,' ...'] ),
	[-_PW_fname],
	tool_mgr(initialize).

load_project_window(_Window):-
	to_bb(journal,[' loading project window ', _PW_fname,' failed...'] ).
