anchor.diff:      Res= gen_file_names(ModOrFile, SearchPaths),
       case Res of 
           [] ->
  -            {error, lists:flatten(
  -                      io_lib:format("File/Module does not exist in the "
  -                                    "searchpaths specified: ~p.\n", 
  -                                    [ModOrFile]))};
  +            throw({error, lists:flatten(
  +                            io_lib:format("File/Module does not exist in the "
  +                                          "searchpaths specified: ~p.\n", 
  +                                          [ModOrFile]))});
           [File] ->
               File;
           [File|_] ->
  -            {error, lists:flatten(
  -                      io_lib:format("File/module specified is not unique "
  -                                    "in the searchpaths specified.:~p\n", 
  -                                    [File]))}
  +            throw({error,lists:flatten(
  +                           io_lib:format("File/module specified is not unique "
  +                                         "in the searchpaths specified.:~p\n", 
  +                                         [File]))})
       end.
   
   
  
positive.code:             get_next_fold_expr_command(
                {F, NextFileGen}, TgtModOrFile, FA, ClauseIndex, SearchPaths)
      end.
  
  get_next_fold_expr_command({File, NextFileGen}, TgtModOrFileFilter, FA, ClauseIndex, SearchPaths) ->
      case gen_file_names(TgtModOrFileFilter, true, SearchPaths) of 
          [] -> [];
          [TgtFile] ->
  
negative.code:     Files1= gen_file_names(CurModOrFile, SearchPaths),
      Files2= gen_file_names(TgtModOrFile, SearchPaths),
      [fold_expr_1(File1,  File2, F, A, ClauseIndex, SearchPaths)
           ||File1<-Files1, File2<-Files2, {F, A}<-get_fun_arity(File2, FA)]; 
  fold_expr(CurModOrFile, TgtModOrFile, FA, ClauseIndex, true, SearchPaths) ->
      case gen_file_names(CurModOrFile, true, SearchPaths) of
          [] -> [];
  