diff --git a/tl/src/tl/views.cljs b/tl/src/tl/views.cljs
index 2c81e74..4929b15 100644
--- a/tl/src/tl/views.cljs
+++ b/tl/src/tl/views.cljs
@@ -1205,13 +1205,13 @@
                       (when (has-type? e "text/ann")
                         (.stopPropagation e) (.preventDefault e) (reset! over? true)))
      :on-drag-leave (fn [_] (reset! over? false))
-     ;; plain drop MOVES the edge you grabbed onto this card; ⌜⌥/Alt⌟-drop ADDS
-     ;; (links, keeping the source edge).
+     ;; plain drop MOVES the edge you grabbed onto this card; SHIFT-drop LINKS
+     ;; (adds this edge, keeping the source one) — Blender's M / ⇧M.
      :on-drop       (fn [e]
                       (let [src (.. e -dataTransfer (getData "text/ann"))]
                         (when (seq src)
                           (.stopPropagation e) (.preventDefault e) (reset! over? false)
-                          (rf/dispatch [::events/reparent (keyword src) (:id a) (.-altKey e)]))))}))
+                          (rf/dispatch [::events/reparent (keyword src) (:id a) (.-shiftKey e)]))))}))
 
 (defn- annotation-card [a scene ctx segs nmap authed? open by-parent revealed source-parent seen]
   (r/with-let [over? (r/atom false) hov? (r/atom false)]