@@ -272,11 +272,11 @@
 		return(TCL_ERROR);
 	}
 
 	Tcl_IncrRefCount(ret_list);
 
-	children = malloc(sizeof(*children) * num_children);
+	children = (void *) Tcl_Alloc(sizeof(*children) * num_children);
 
 	num_children = cmd_getChildren(file, children, num_children);
 
 	for (idx = 0; idx < num_children; idx++) {
 		finfo = cmd_getData(NULL, children[idx]);
@@ -294,13 +294,13 @@
 		Tcl_ListObjAppendList(interp, ret_list, ret_curr_obj);
 
 		Tcl_DecrRefCount(ret_curr_obj);
 	}
 
-	free(children);
+	Tcl_Free((void *) children);
 
 	Tcl_SetObjResult(interp, ret_list);
 
 	Tcl_DecrRefCount(ret_list);
 
 	return(TCL_OK);
 }