[Zope] tranalyzer patch

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