anchor.diff:      end,
       case bucket_needs_compaction(VbNames, Config) of
       false ->
  -        lists:foreach(fun(N) ->
  -            maybe_compact_views(N, BucketName, DDocNames, Config) end,
  -            VbNames);
  +        maybe_compact_views(BucketName, DDocNames, Config);
       true ->
           lists:foreach(fun(N) ->
               compact_vbucket(N, Config) end,
  
positive.code:     end.
  
  
  maybe_compact_views(_DbName, _BucketName, [], _Config) ->
      ok;
  maybe_compact_views(DbName, BucketName, [DDocName | Rest], Config) ->
      case maybe_compact_view(DbName, BucketName, DDocName, Config) of
      ok ->
          maybe_compact_views(DbName, BucketName, Rest, Config);
      timeout ->
          ok
      end.
  
negative.code:     DDocNames.
  
  
  maybe_compact_view(BucketName, DDocId, Config) ->
      try couch_set_view:get_group_info(BucketName, DDocId) of
      {ok, GroupInfo} ->
          case can_view_compact(Config, BucketName, DDocId, GroupInfo) of
          true ->
  