anchor.diff:  	    St;
   	image ->
   	    case list_to_integer(Arg) of
  -		Pos when integer(Pos), Pos >= 0 ->
  +		Pos when is_integer(Pos), Pos >= 0 ->
   		    rsend(Ctl, 350, ["Restarting at ", integer_to_list(Pos),
   				     " send STOR or RETR to start transfer"]),
   		    St#cstate{state = {restart_pos, Pos}}
  
positive.code: 			failed -> ctl_loop(Ctl,St,Buf1);
  			quit -> true;
  			init -> ctl_loop_init(Ctl, St#cstate.def_data_port);
  			St1 when record(St1, cstate) ->
  			    ctl_loop(Ctl,St1,Buf1);
  			_Err -> %% Crash etc - e.g. bad input from client
  			    ?dbg("ftpd crash: ~p", [_Err]),
  
negative.code: 	    options(Opts, S#sconf { greeting_file = File });
  	{use_fd_srv, Bool} when Bool==true ; Bool==false ->
  	    options(Opts, S#sconf { use_fd_srv = Bool });
  	{event_mod, Mod} when is_atom(Mod) ->
  	    options(Opts, S#sconf{event_mod = Mod});
  	{auth_mod, Mod} when is_atom(Mod) ->
  	    options(Opts, S#sconf{auth_mod = Mod});
  	{jail, Bool} when Bool==true ; Bool==false ->
  	    options(Opts, S#sconf{jail = Bool});
  	{sys_ops, SysOps} when is_integer(SysOps) ->
  	    options(Opts, S#sconf{sys_ops = SysOps});
  	_ ->
  	    {error, {bad_option, Opt}}
  