I use a simple procedure to pack all tables in the database:

open database v:\data\dlog3\DlogData exclusive
TableCount = adbobjects(Tbls, "Table")

for ctr = 1 to TableCount
use Tbls[ctr] exclusive
pack
endfor

When run from Foxpro (compiled into the exe), this works just fine.
When run from the runtime most of the indexes are corrupted: left with 0 bytes and the tables cannot be opened again. "Index does not match... delete index file ..."

I thought that this was probably something wrong in the DBC so, I created a new DBC, added all of the tables, added settings, stored procs, etc. Same results on the new database.

Any ideas? Do others experience this? Is it a known bug? Is there a solution?