Segfault due to product of vector wildcards

[jodavies]

The following leads to a segfault:

Vector p1,p2;

Local test = p1*p2;

Identify p1?*p2? = 1;

Print;
.end

(also from #663 )