anchor.diff:  			file:delete("/tmp/comfile"),
   			ReqPipe = open_port(binary_to_list(Req), [in,eof,binary]),
   			RespPipe = open_port(binary_to_list(Resp), [out,eof,binary]),
  -			P = setpw(parse_args(#dp{req = ReqPipe, resp = RespPipe, env = shell},Args)),
  -			dologin(P)
  +			P = setpw(parse_args(#dp{req = ReqPipe, resp = RespPipe, env = shell},Args))
   	end,
  +	dologin(P),
   	case P#dp.execute of
   		undefined ->
   			case P#dp.curdb of
  
positive.code: 			map_print(P,Map);
  		{ok,{changes,_Rowid,_NChanged}} ->
  			print(P,"Schema updated.",[]);
  		{'EXIT',{noproc,_}} when P#dp.env == wx ->
  			wxproc ! dologin,
  			P;
  		{'EXIT',{noproc,_}} ->
  
negative.code: 			map_print(P,Map);
  		{ok,{changes,Rowid,NChanged}} ->
  			print(P,"Rowid: ~p, Rows changed: ~p",[Rowid,NChanged]);
  		{error,{login_failed,_}} when P#dp.env == wx ->
  			wxproc ! dologin,
  			P;
  		{'EXIT',{noproc,_}} ->
  