From 95e28886419a16e864cdd860c5bf7dbac205c0e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=81lvaro=20Mu=C3=B1oz?= <golot@golot.es>
Date: Fri, 9 Jul 2021 02:34:39 +0200
Subject: [PATCH] Fix CBM install data retrieval when installing CBM on NPC

---
 src/iexamine.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/iexamine.cpp b/src/iexamine.cpp
index 43a7835752a05..90b0736d944fe 100644
--- a/src/iexamine.cpp
+++ b/src/iexamine.cpp
@@ -4843,7 +4843,7 @@ void iexamine::autodoc( player &p, const tripoint &examp )
                 patient.install_bionics( ( *itemtype ), installer, true, has_install_program ? 10 : -1 );
 
                 if( has_install_program ) {
-                    patient.consume_items( progs );
+                    p.consume_items( progs );
                 }
             }
             break;