Tested with a clean 60471 and the correct code theme is used for me (primary white text color).
What are these values for you:
----------------------
Smalltalk ui theme. "a Pharo3DarkTheme"
SHTextStylerST80 styleTable = Smalltalk ui theme shStyleTable. "true"
SHRBTextStyler styleTable = Smalltalk ui theme shStyleTable "true"
----------------------
My guess is that you have some theme setting that changed just the code color back to the default theme coloring.
Best regards,
Henrik