diff --git a/R/functions_prep_project.R b/R/functions_prep_project.R
index 1d6ef4d..9e955c4 100644
--- a/R/functions_prep_project.R
+++ b/R/functions_prep_project.R
@@ -292,7 +292,7 @@ sample_raw_loanbook_from_abcd <- function(abcd = NULL,
     loan_size_credit_limit_currency = .env$currency,
     sector_classification_system = loanbook_sample_prep$sector_classification_system,
     sector_classification_input_type = loanbook_sample_prep$sector_classification_input_type,
-    sector_classification_direct_loantaker = as.numeric(loanbook_sample_prep$code),
+    sector_classification_direct_loantaker = loanbook_sample_prep$code,
     fi_type = "Loan",
     flag_project_finance_loan = "No",
     name_project = NA_character_,