[Zope] tranalyzer patch

[Bill Welch]

Fixes a bug with records that have versions and a bug with records that
point to other records for data.

211c211
<             self.vstring = f.c(vl - 16)
---
>             self.vstring = f.c(vl)
214c214
<             data = f.c(dl - 8)
---
>             data = f.c(dl)
216a217,218
>             self.drpos = 0
>         else:
218a221
> 
223c226,229
<         s = "\tOID: %(oid)s len %(datalen)d\n" % self
---
>         if self.drpos:
>             s = "\tOID: %(oid)s position %(drpos)d\n" % self
>         else:
>             s = "\tOID: %(oid)s len %(datalen)d\n" % self
225c231
<             s = s + """\t\t(version "%(vstring)s", vlen
%(verslen)d)\n"""
---
>             s = s + """\t\t(version "%(vstring)s")\n""" % self