diff --git a/FrontEnd/StyleSheets/Chatbook.nb b/FrontEnd/StyleSheets/Chatbook.nb
index a51c96fc..0ba29745 100644
--- a/FrontEnd/StyleSheets/Chatbook.nb
+++ b/FrontEnd/StyleSheets/Chatbook.nb
@@ -1161,7 +1161,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.3.6.3913177292"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.3.7.3913365950"|>
   ],
   Cell[
    StyleData["Text"],
diff --git a/Source/Chatbook/Explode.wl b/Source/Chatbook/Explode.wl
index cab9e90e..a4d67f24 100644
--- a/Source/Chatbook/Explode.wl
+++ b/Source/Chatbook/Explode.wl
@@ -9,7 +9,7 @@ Begin[ "`Private`" ];
 Needs[ "Wolfram`Chatbook`"        ];
 Needs[ "Wolfram`Chatbook`Common`" ];
 
-$$newCellStyle = "Section"|"Subsection"|"Subsubsection"|"Subsubsubsection"|"Item"|"Input"|"ExternalLanguage";
+$$newCellStyle = "Section"|"Subsection"|"Subsubsection"|"Subsubsubsection"|"Item"|"Input"|"ExternalLanguage"|"Program";
 
 (* ::**************************************************************************************************************:: *)
 (* ::Section::Closed:: *)
@@ -70,6 +70,9 @@ $preprocessingRules := $preprocessingRules = Dispatch @ {
     (* Remove "ChatCodeBlock" styling: *)
     Cell[ BoxData[ cell_Cell, ___ ], "ChatCodeBlock", ___ ] :> cell,
 
+    (* Language-agnostic code blocks: *)
+    Cell[ text_, "ChatPreformatted", ___ ] :> Cell[ text, "Program" ],
+
     (* Remove "ChatCodeBlockTemplate" template boxes: *)
     TemplateBox[ { cell_Cell }, "ChatCodeBlockTemplate" ] :> cell,