From c342c0e3d8d3cc551fa3cc3b12a039f9a0303d66 Mon Sep 17 00:00:00 2001
From: Martin Kiewitz
Date: Mon, 6 Sep 2010 10:39:42 +0000
Subject: SCI: fix regression of r52565

remove class bit when marking as clone

svn-id: r52584
---
 engines/sci/engine/kscripts.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/engines/sci/engine/kscripts.cpp b/engines/sci/engine/kscripts.cpp
index e6c1273f13..a5bf516e13 100644
--- a/engines/sci/engine/kscripts.cpp
+++ b/engines/sci/engine/kscripts.cpp
@@ -179,6 +179,8 @@ reg_t kClone(EngineState *s, int argc, reg_t *argv) {
 
 	// Mark as clone
 	writeSelectorValue(s->_segMan, cloneAddr, SELECTOR(_info_), (infoSelector & ~kInfoFlagClass) | kInfoFlagClone);
+	infoSelector &= ~kInfoFlagClass; // remove class bit
+	writeSelectorValue(s->_segMan, cloneAddr, SELECTOR(_info_), infoSelector | kInfoFlagClone);
 
 	cloneObj->setSpeciesSelector(cloneObj->getPos());
 	if (parentObj->isClass())
-- 
cgit v1.2.3