Stange code in semantic/db-el.el

[Stefan Monnier]

In semanticdb-elisp-sym->tag (cedet/semantic/db-el.el) I see the code below:
[ This is the code in the emacs-24 branch.  ]

          ((and (eq toktype 'type) (class-p sym))
           (semantic-tag-new-type
            (symbol-name sym)
            "class"
            (semantic-elisp-desymbolify
             (eieio--class-public-a (class-v semanticdb-project-database))) ;; 
slots
            (semantic-elisp-desymbolify (eieio-class-parents sym)) ;; parents
            ))

I'm not exactly sure what this code is supposed to do, but I have the
impression that `semanticdb-project-database' above makes no sense:
I would expect to see `sym' there instead.

Is my intuition correct, or else what is this
`semanticdb-project-database' doing there?


        Stefan