--- BWidget-1.7.0/tree.tcl.~1~	2003-10-20 23:23:53.000000000 +0200
+++ BWidget-1.7.0/tree.tcl	2004-10-14 12:38:06.235012920 +0200
@@ -327,6 +327,7 @@
     if { [info exists data($node)] } {
         return -code error "node \"$node\" already exists"
     }
+    set parent [_node_name $path $parent]
     if { ![info exists data($parent)] } {
         return -code error "node \"$parent\" does not exist"
     }
