split link bug

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/linkcfg.tcl b/linkcfg.tcl
index ce3618a1b592e74b726a4abf0ad6a5b288050e39..81ae41198edf2c15904a33a1b7c4d85024804ff6 100755 (executable)
--- a/linkcfg.tcl
+++ b/linkcfg.tcl
@@ -477,7 +477,7 @@ proc splitLink { link nodetype } {
     set orig_node1 [lindex $orig_nodes 0]
     set orig_node2 [lindex $orig_nodes 1]
     set new_node1 [newNode $nodetype]
-    set new_node2 [newNode $nodeSplits the link in two parts.type]
+    set new_node2 [newNode $nodetype]
     set new_link1 [newObjectId link]
     lappend link_list $new_link1
     set new_link2 [newObjectId link]