UpSet not giving a "Tag Integer is Protected." message

## Description

UpSet is not giving  `xxx is Protected.`


## How to Reproduce

```
$ python -m mathics -c 'F[20] ^= 65'
```


## Output Given

```
65
```


## Expected behavior

```
UpSet::write: Tag Integer in F[20] is Protected.
65
```

