*** src/glpapi01.c~	Thu Oct 30 10:00:00 2008
--- src/glpapi01.c	Sat Nov  8 13:37:41 2008
***************
*** 1254,1259 ****
--- 1254,1261 ----
           xerror("glp_copy_prob: names = %d; invalid parameter\n",
              names);
        glp_erase_prob(dest);
+       if (names && prob->r_tree != NULL)
+          glp_create_index(dest);
        if (names && prob->name != NULL)
           glp_set_prob_name(dest, prob->name);
        if (names && prob->obj != NULL)