problems decompressing files

[Dar Scott]

I may have found a training string that avoids compression that trips 
up decompression on OS X, Revolution 2.1.  Maybe.

Here is my test button script:
/************************/
on mouseUp
   get field "Input"
   get xCompress(it)
   get xDecompress(it)
   put "[" & it & "]" & LF into field "Log"
end mouseUp

function trainer
   local train
   repeat with i= 0 to 255
     put numToChar(i)&"a" after train
   end repeat
   return train
end trainer

function xCompress s
   return compress( trainer() & s )
end xCompress

function xDecompress s
   return char 513 to -1 of decompress(s)
end xDecompress
/*********************/

As is, it needs fields "Input" and "Log".

Put some string into field "Input".  Click the button.  The result 
comes out in field "Log" between brackets.  You might want to try it on 
anything you can find and see if this really does any good.  For all I 
know there is no training string that will prevent the error.  I can't 
prove this will fix the problem, either.

And this will do no good for decompressing what was compressed 
elsewhere.

Dar Scott