WITH-OBSERVED-VMS: Now returns a VM holding the continious result or return value of its BODY:

symbolicweb.core> (dosync
                   (let [a (vm 3)
                         b (vm 2)
                         sum (with-observed-vms nil
                               (+ @a @b))]
                     (dbg-prin1 sum)
                     (vm-set b 4)
                     (dbg-prin1 sum)))

sum => #<Ref@21c07871: 5>
sum => #<Ref@21c07871: 7>