 
                                  (when invalid?
                                    (dom/title nil
-                                              (str "This action links to "  (:layer/ui-target layer) ", but no shapes have that name."
-                                                   " Right-click on a shape to name it " (:layer/ui-target layer))))
+                                              (str "This action links to \""  (:layer/ui-target layer) "\", but no shapes have that name."
+                                                   " Right-click on a shape's border to name it " (:layer/ui-target layer))))
                                  (svg-element selected-eids
                                               (assoc layer
                                                 :onMouseDown #(do

    om/IRender
    (render [_]
      (let [{:keys [cast! db]} (om/get-shared owner)
            targets (map first (d/q '{:find [?id]
                                      :where [[_ :layer/ui-id ?id]]}
                                    @db))]
        (dom/foreignObject #js {:width "100%"
                                :height "100%"
                                :x x

                       (dom/option #js {:value ""}
                                   "None")

                       (for [target (sort (distinct (concat targets
                                                            (when (:layer/ui-target layer)
                                                              [(:layer/ui-target layer)]))))]
                         (dom/option #js {:value target}
                                     target))))))))))

