@@ -88,10 +88,11 @@
 	     (nodenum    (tree:find-node obj newpath)))
 	;; Add the branch under lastnode if not found
 	(if (not nodenum)
 	    (begin
 	      (iup:attribute-set! obj (conc "ADDBRANCH" parentnode) hed)
+		;; ERROR? ADDING DATA TO PARENT, DONT WE WANT IT ON CREATED NODE?
 	      (if userdata
 		  (iup:attribute-set! obj (conc "USERDATA"   parentnode) userdata))
 	      (if (null? tal)
 		  #t
 		  ;; reset to top
@@ -112,10 +113,15 @@
 	   (newpath    (append trimpath (list node-title))))
       (if (>= currnode nodenum)
 	  newpath
 	  (loop (+ currnode 1)
 		newpath)))))
+
+(define (tree:delete-node obj top node-path) ;; node-path is a list of strings
+  (let ((id  (tree:find-node obj (cons top node-path))))
+    (print "Found node to remove " id " for path " top " " node-path)
+    (iup:attribute-set! obj (conc "DELNODE" id) "SELECTED")))
 	
 #|
 
   (let* ((tb      (iup:treebox
                    #:value 0