From 8f6f342c3f05375e8a0cd0902bf3373614dacfa0 Mon Sep 17 00:00:00 2001
From: Paul Gilbert
Date: Tue, 20 Dec 2016 22:02:43 -0500
Subject: TITANIC: Fix dragging chevrons onto the Succubus

---
 engines/titanic/pet_control/pet_drag_chev.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/engines/titanic/pet_control/pet_drag_chev.cpp b/engines/titanic/pet_control/pet_drag_chev.cpp
index 957fe5295c..4b54d3e69c 100644
--- a/engines/titanic/pet_control/pet_drag_chev.cpp
+++ b/engines/titanic/pet_control/pet_drag_chev.cpp
@@ -59,6 +59,7 @@ bool CPetDragChev::MouseDragEndMsg(CMouseDragEndMsg *msg) {
 	if (succubus) {
 		CSetChevRoomBits chevMsg(_destRoomFlags);
 		chevMsg.execute(succubus);
+		petMoveToHiddenRoom();
 	} else {
 		CPetControl *petControl = getPetControl();
 		if (!petControl || !petControl->contains(msg->_mousePos)
-- 
cgit v1.2.3