Index: openacs-4/packages/xotcl-core/tcl/ical-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/ical-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	13 Dec 2017 18:44:19 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	13 Dec 2017 18:47:05 -0000	1.14
@@ -71,8 +71,8 @@
     (see rfc 2445)
   } {
     if {$remove_tags} {regsub -all {<[^>]+>} $text "" text}
-    regsub -all \n $text \\n text
     regsub -all {(\\|\;|\,)} $text {\\\1} text
+    regsub -all \n $text {\\n} text
     return $text
   }
   ical ad_proc ical_to_text {text} {