anchor.diff:                                     :look-handler (prop look-handler)
                                      :tree-address (prop tree-address))))))))
   
  -    (defun %make-segments (text opins props)
  +    (defun %make-segments (text props)
         (collecting
  -          (let ((segpoints (excerpt-segment-points
  -                            (collecting (dolist (op opins)
  -                                          (collect (@ op 0))))
  -                            (length text)))
  -                (current-id (when (@ props tree-address)
  -                              (list-last (@ props tree-address)))))
  +          (let* ((current-id (when (@ props tree-address)
  +                               (list-last (@ props tree-address))))
  +                 (opstore (@ props opinion-store))
  +                 (opins (immediate-children-ids current-id opstore))
  +                 (segpoints (excerpt-segment-points
  +                             (mapcar (lambda (id) (getprop opstore id)) opins)
  +                             (length text))))
               (do-window ((start end) segpoints)
                 (let* ((id (strcat "lvl-"
                             (chain props
  
positive.code:                              (eql (prop last-char-pos)
                                    (+ (@ focussed 0 text-position 0)
                                       (@ focussed 0 text-position 1))))
                      (psx (:opinion :opinions focussed
                                     :key (unique-id)
                                     :focus (prop focus)
  
negative.code:                   (set-state position res)))))
            (rebreak (prop text))
            (:span :class "segment-count" :key (unique-id)
                   (let ((count (%get-replies-count (prop excerpt-opinions) (@ this props))))
                     (if (< 1 count) count "")))
            (:tool-tip :key "a1"
                       :active (and (state viewable) (not (prop hide-popup)))
  