Unquiver gold before making it vanish

This fixes a complaint for "deleting worn obj":  If reading a cursed
spellbook took your money, and the gold was quivered.

src/sit.c

@@ -15,6 +15,7 @@ take_gold()
 		nobj = otmp->nobj;
 		if (otmp->oclass == COIN_CLASS) {
 			lost_money = 1;
+			remove_worn_item(otmp, FALSE);
 			delobj(otmp);
 		}
 	}