anchor.diff:  -spec read_only_attrib(ValueId :: value_id()) -> boolean().
   
   read_only_attrib(ValueId) ->
  -	case ValueId of
  -		% So far no array values are read only
  -		{_ValueName, _Index} ->
  -			false;
  -		ValueName ->
  -			case ValueName of
  -				block_name   -> true;
  -				block_module -> true;
  -				version      -> true;
  -									 _ -> false
  -			end
  -	end.
  +  case ValueId of
  +    % So far no array values are read only
  +    {_ValueName, _Index} ->
  +      false;
  +    ValueName ->
  +      case ValueName of
  +        block_name   -> true;
  +        block_module -> true;
  +        version      -> true;
  +                   _ -> false
  +      end
  +  end.
   
   
   %% ====================================================================
  
positive.code: %% terminate/2
  %% ====================================================================
  -spec terminate(Reason, State :: term()) -> Any :: term() when
  	Reason :: normal
  			| shutdown
  			| {shutdown, term()}
  			| term().
        
  terminate(normal, _State) ->
    ok;
  
negative.code: %% API functions
  %% ====================================================================
  -export([
            start/0,
            stop/1,
            create_block/4,
            copy_block/4,
            delete_block/2,
            get_block/2,
            get_value/3,
            get_block_names/1,
            get_types_info/1,
            get_type_info/2,
            set_value/4,
            set_link/4,
            execute_block/2,
             is_block_name/2, 
             is_block_type/2
  ]). 
  
  
  