Looks like you caught us on some unported code, good.
Two comments:
1. Please submit this to the SDM, along with your proposed fix, so we remember to fold it in to the sources.
2. You should be inserting '$QQbody', not '$body' - the QQ version of the variable as apostrophes doubled, just inserting '$body' will cause an error if the body contains an apostrophe. When inserting CLOBs using the aD Oracle driver for AOLserver (as opposed to inserting normal varchars) apostgrophe's aren't a problem, thus the original use of '$body'.
