diff --git a/swad_changelog.h b/swad_changelog.h
index 2e08782f..a322a026 100644
--- a/swad_changelog.h
+++ b/swad_changelog.h
@@ -448,10 +448,11 @@ En OpenSWAD:
 ps2pdf source.ps destination.pdf
 */
 
-#define Log_PLATFORM_VERSION	"SWAD 18.121.1 (2019-05-16)"
+#define Log_PLATFORM_VERSION	"SWAD 18.121.2 (2019-05-17)"
 #define CSS_FILE		"swad18.112.1.css"
 #define JS_FILE			"swad18.116.5.js"
 /*
+	Version 18.121.2: May 17, 2019	Fixed bug in exporting tests. (242700 lines)
 	Version 18.121.1: May 16, 2019	Fixed bug in renaming of institution. (242697 lines)
 	Version 18.121:   May 13, 2019	Module swad_web_service is renamed as swad_API.
 					New API function getCourses. (242708 lines)
diff --git a/swad_test_import.c b/swad_test_import.c
index 7bd5fae4..7b885160 100644
--- a/swad_test_import.c
+++ b/swad_test_import.c
@@ -316,7 +316,6 @@ static void TsI_WriteAnswersOfAQstXML (long QstCod)
    row[3] MedCod
    row[4] Correct
    */
-
    /***** Write the answers *****/
    switch (Gbl.Test.AnswerType)
      {
@@ -361,15 +360,19 @@ static void TsI_WriteAnswersOfAQstXML (long QstCod)
            {
             row = mysql_fetch_row (mysql_res);
 
-            /* Write the answer (row[1]), that is in HTML */
+            /* Start answer */
             fprintf (Gbl.Test.XML.FileXML,"<option");
+
+            /* Write whether the answer is correct or not (row[4]) */
             if (Gbl.Test.AnswerType != Tst_ANS_TEXT)
                fprintf (Gbl.Test.XML.FileXML," correct=\"%s\"",
-                        (row[7][0] == 'Y') ? "yes" :
+                        (row[4][0] == 'Y') ? "yes" :
                                              "no");
-            fprintf (Gbl.Test.XML.FileXML,">%s"
-        	                          "<text>%s</text>%s",
-                     Txt_NEW_LINE,
+
+            fprintf (Gbl.Test.XML.FileXML,">%s",Txt_NEW_LINE);
+
+            /* Write the answer (row[1]), that is in HTML */
+            fprintf (Gbl.Test.XML.FileXML,"<text>%s</text>%s",
                      row[1],Txt_NEW_LINE);
 
             /* Write the feedback (row[2]) */
@@ -377,6 +380,8 @@ static void TsI_WriteAnswersOfAQstXML (long QstCod)
 	       if (row[2][0])
 		  fprintf (Gbl.Test.XML.FileXML,"<feedback>%s</feedback>%s",
 			   row[2],Txt_NEW_LINE);
+
+            /* End answer */
             fprintf (Gbl.Test.XML.FileXML,"</option>%s",
                      Txt_NEW_LINE);
            }