Package.ApplyUserLock toggles in v17

[Geert Bellekens]

I found a bug in version 17.1.1716

When a script call Package.ApplyUserLock twice, the package ends up unlocked.
This was not the case in version 15.

Steps to reproduce:

Execute the following script:

 dim package as EA.Package
set package = Repository.GetPackageByGuid("{004FDF92-DB9B-47b7-B5B1-2CE63056D724}")
package.ApplyUserLock
msgbox "User lock applied"
package.ApplyUserLock
msgbox "User lock applied again"

In version 15 the end state is that the package is locked.
In version 17 the end state is that the package is unlocked.

Reported

Geert