LSzip querie

Hi
The following does not work as expected.
It only zips ‘*.app’ and does NOT also zip ‘*.dct *.tps’ ??
OF ?StartButton
CASE EVENT()
OF Event:Accepted
zip.SetArchiveName(zipArchiveName)
zip.DefineFileSpec( ‘*.app’ )
zip.AddFileSpec( ‘*.dct *.tps’ )
zip.AddFlag( ZIP_QUIET_FLAG)
zip.SetCompressionLevel(2)
Res=zip.LSZEXECUTE(zm_UPDATE)
if res
MESSAGE(‘Error: ‘&errorcode()&’ ‘&error())
end