Fix bug in new pack code for dot.

diff --git a/lib/dotgen/dotinit.c b/lib/dotgen/dotinit.c
index de1aaa254d15b055254c9f2ef738ddaf70e342ac..5be5a0f756ea0591dc444ac414e7fa22bc727b32 100644 (file)
--- a/lib/dotgen/dotinit.c
+++ b/lib/dotgen/dotinit.c
@@ -24,7 +24,8 @@ dot_init_subg(graph_t * g, graph_t* droot)
 
     if ((g != agroot(g)))
        agbindrec(g, "Agraphinfo_t", sizeof(Agraphinfo_t), TRUE);
-    GD_dotroot(g) = droot;
+    if (g == droot)
+       GD_dotroot(agroot(g)) = droot;
        
     for (subg = agfstsubg(g); subg; subg = agnxtsubg(subg)) {
        dot_init_subg(subg, droot);