shimmer'ed objects say so in their descs

game/modules/tome/class/Object.lua

@@ -2036,6 +2036,13 @@ function _M:getDesc(name_param, compare_with, never_compare, use_actor)
 		desc:add({"color", "WHITE"})
 	end
 
+	if self.shimmer_moddable then
+		local oname = (self.shimmer_moddable.name or "???"):toTString()
+		desc:add(true, {"color", "OLIVE_DRAB"}, "This object's appearance was changed to ")
+		desc:merge(oname)
+		desc:add(".", {"color","LAST"}, true)
+	end
+
 	if could_compare and not never_compare then desc:add(true, {"font","italic"}, {"color","GOLD"}, "Press <control> to compare", {"color","LAST"}, {"font","normal"}) end
 
 	return desc

game/modules/tome/dialogs/Shimmer.lua

@@ -90,11 +90,13 @@ function _M:generateList()
 
 	for name, data in pairs(unlocked) do
 		if self.object.type == data.type and self.object.subtype == data.subtype then
-			list[#list+1] = {
+			local d = {
 				moddables = table.clone(data.moddables, true),
 				name = name,
 				sortname = name:removeColorCodes(),
 			}
+			d.moddables.name = name
+			list[#list+1] = d
 		end
 	end
 	table.sort(list, "sortname")