 (defun tn-set-target-weight ()
     (interactive)
     (let ((r (read-character-as-number)))
-        (set-target-weight (/ r 4))))
+        (set-target-weight (/ r 4.0))))
 
 
 ;; INTERFACE ;;;;;;;;;;;;;;;;;;;;;;;;;;;

                (concat name " [" root-id "]"))
            title)))

(defun current-target-id ()
    (car (last (find-id))))

(defun current-target ()
    (get-atom (current-target-id)))

        (http-post
            (concat (base-url) "update")
            (list
                (list "root" tn-root-id)
                (list "view" entity)
                (list "style" tn-style)
                (list "minSharability" (number-to-string tn-min-sharability))
