diff --git a/Database/udfs/funciones.pas b/Database/udfs/funciones.pas
index 33d66d01..b0001ae5 100644
--- a/Database/udfs/funciones.pas
+++ b/Database/udfs/funciones.pas
@@ -215,11 +215,11 @@ var
 
 begin
   // Hay que quitar el salto de línea al final de la aSource RTF
-  aSource := StringReplace(Cadena, SaltoLinea, '', [rfreplaceall]);
+  aSource := Copy(Cadena, 1, length(Cadena)-2);
 
-  // o bien:
-  //
-  //aSource := Copy( cLinea, 1, length(cLinea)-2) );
+  // Cambiar los saltos de línea que no son de RTF por un caracter para
+  // que se limpien.
+  aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]);
   
   if InitSource then
   begin
diff --git a/Database/udfs/udf_RtfToText.dll b/Database/udfs/udf_RtfToText.dll
index 46b4c455..d326ff57 100644
Binary files a/Database/udfs/udf_RtfToText.dll and b/Database/udfs/udf_RtfToText.dll differ