1 files changed, 4 insertions, 2 deletions
diff --git a/libgui/src/tkGraphCanvas.c b/libgui/src/tkGraphCanvas.c
index c6ed1e71eef..eff3c6d8540 100644
--- a/libgui/src/tkGraphCanvas.c
+++ b/libgui/src/tkGraphCanvas.c
@@ -259,7 +259,8 @@ GetEdgeNodes(interp,canvasPtr,i,fp,tp)
 			  &argc, &argv) != TCL_OK) {
 	return TCL_ERROR;
     }
-    *fp = strdup(argv[4]);
+    *fp = ckalloc (strlen (argv[4]) + 1);
+    strcpy(*fp, argv[4]);
     ckfree((char*)argv);
     /* Read the to node id of this edge. */
     Tk_ConfigureInfo(interp, canvasPtr->tkwin,
@@ -269,7 +270,8 @@ GetEdgeNodes(interp,canvasPtr,i,fp,tp)
 			  &argc, &argv) != TCL_OK) {
 	return TCL_ERROR;
     }
-    *tp = strdup(argv[4]);
+    *tp = ckalloc(strlen (argv[4]) + 1);
+    strcpy(*tp, argv[4]);
     ckfree((char*)argv);
     Tcl_ResetResult(interp);
     return TCL_OK;