\documentclass{article}
\usepackage{expl3,xcolor,etoolbox}
\begin{document}
\makeatletter
\def\tcb@set@color#1{%
\letcs{\current@color}{\string\color@#1}%
\colorlet{.}{#1}%
}
\tcb@set@color{red}
\ExplSyntaxOn
\color_ensure_current:
\ExplSyntaxOff
\end{document}