1 files changed, 4 insertions, 1 deletions

diff --git a/lib/sisu/v6/xml_shared.rb b/lib/sisu/v6/xml_shared.rb
index 3e8ddf50..8f4024eb 100644
--- a/lib/sisu/v6/xml_shared.rb
+++ b/lib/sisu/v6/xml_shared.rb
@@ -485,7 +485,10 @@ module SiSU_XML_Munge
           gsub(/#{Mx[:nbsp]}/,' '). #  not available
           gsub(/<(p|br)>/,'<\1 />')
         dob.obj=clean(dob.obj)
-      else # codeblock
+      elsif dob.is == :code
+        dob.obj=dob.obj.gsub(/&/m,'&amp;'). #sort
+          gsub(/</,'&lt;').gsub(/>/,'&gt;')
+      else # p dob.is ??
       end
       dob
     end