minor bug: Don't TclpInitUnlock() here, because the following TclFinalizeLock() already does an implicit unlock.