Fix bug in nexthead and nexttail functions

diff --git a/tclpkg/gv/gv.cpp b/tclpkg/gv/gv.cpp
index f2d9669b97f335b45cd32e38ab5de1fc0eda4251..8612885e335356094f46364ec5ddc55e6e53a3ab 100644 (file)
--- a/tclpkg/gv/gv.cpp
+++ b/tclpkg/gv/gv.cpp
@@ -584,7 +584,7 @@ Agnode_t *nexthead(Agnode_t *n, Agnode_t *h)
     if (!e)
         return NULL;
     do {
-        e = agnxtout(g, e);
+        e = agnxtout(g, AGMKOUT(e));
         if (!e)
             return NULL;
     } while (aghead(e) == h);
@@ -671,7 +671,7 @@ Agnode_t *nexttail(Agnode_t *n, Agnode_t *t)
     if (!e)
         return NULL;
     do {
-        e = agnxtin(g, e);
+        e = agnxtin(g, AGMKIN(e));
         if (!e)
             return NULL;
     } while (agtail(e) == t);