void create_link (p_product_description desc, p_product pointer)
{
  vb link = alloc (T_POINTER | T_STRUCT, product, pointer);                    

  desc->link = link;                                                           /* ??.. */
}