Reinsert code deleted by (1998) that we thought was unused but was in fact

needed.  Fix for ticket #966. (CVS 2025)

FossilOrigin-Name: 370ca539506a431dbe77dcb644215886760f34e9