anchor.diff:              run_string(As);
           [S|As] ->                               %Run a script
               user:start(),                       %Start user for io
  -            spawn_link(fun () ->
  -                               lfe_shell:run_script(S, As),
  -                               init:stop(0)
  -                       end);
  +	    run_file([S|As]);
           [] ->                                   %Run a shell
               user_drv:start(['tty_sl -c -e',{lfe_shell,start,[]}])
       end.
  +
  +run_file([S|As]) ->
  +    Script = fun () -> lfe_shell:run_script(S, As) end,
  +    spawn_link(fun () -> run_script(Script) end).
   
   run_string([]) -> run_string([], []);           %No command
   run_string(["--"]) -> run_string([], []);       %No command
  
positive.code: run_string(S, []) ->
      run_string(S, ["lfe"]);
  run_string(S, As) ->
      spawn_link(fun () ->
                         lfe_shell:run_string(S, As),
                         init:stop(0)
                 end).
  
negative.code: 
  -export([start/0]).
  
  -define(OK_STATUS, 0).
  -define(ERROR_STATUS, 127).
  
  %% Start LFE running a script or the shell depending on arguments.
  
  start() ->
  