diff -Naur cmn/cmn2.lisp cmn-new/cmn2.lisp
--- cmn/cmn2.lisp	2019-01-01 15:40:00.000000000 +0100
+++ cmn-new/cmn2.lisp	2021-11-22 11:00:26.894007683 +0100
@@ -4156,7 +4156,7 @@
 			      (push (list object note-name) tied-to-notes)
 			      (format s "~%      (setf ~A ~A)" note-name (identify object)))
 			  (let ((tied-note-name (second (find (stem-tie object) tied-to-notes :test #'eq :key #'first)))
-				(tied-tag (find :tied-to (store-data object))))
+				(tied-tag (find :tied-to (store-data object) :key #'car)))
 			    (if (not tied-tag)
 				(push (list :tied-to tied-note-name) (store-data object))
 			      (setf (second tied-tag) tied-note-name))