diff --git a/ChangeLog b/ChangeLog
index 6a21ac201c..9bf69ac535 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2002-08-01  Maurits Rijk  <lpeek.mrijk@consunet.nl>
+
+	* plug-ins/imagemap/imap_object.c (object_list_write_csim)
+	* plug-ins/imagemap/imap_main.c (save_as_csim)
+	* plug-ins/imagemap/imap_polygon.c (polygon_write_csim)
+	* plug-ins/imagemap/imap_rectangle.c (rectangle_write_csim) 
+	* plug-ins/imagemap/imap_circle.c (circle_write_csim): lowercased tags 
+	as described in #87687. Still a few more changes to be made.
+
 2002-07-22  Sven Neumann  <sven@gimp.org>
 
 	* themes/Default/imagerc: applied a patch from Guillermo S. Romero
diff --git a/plug-ins/imagemap/imap_circle.c b/plug-ins/imagemap/imap_circle.c
index b6104bac7a..229cdd88e3 100644
--- a/plug-ins/imagemap/imap_circle.c
+++ b/plug-ins/imagemap/imap_circle.c
@@ -319,7 +319,7 @@ static void
 circle_write_csim(Object_t *obj, gpointer param, OutputFunc_t output)
 {
    Circle_t *circle = ObjectToCircle(obj);
-   output(param, "\"CIRCLE\" COORDS=\"%d,%d,%d\"", circle->x, circle->y,
+   output(param, "\"circle\" coords=\"%d,%d,%d\"", circle->x, circle->y,
 	  circle->r);
 }
 
diff --git a/plug-ins/imagemap/imap_main.c b/plug-ins/imagemap/imap_main.c
index 7a06f3e883..0157261248 100644
--- a/plug-ins/imagemap/imap_main.c
+++ b/plug-ins/imagemap/imap_main.c
@@ -801,10 +801,10 @@ save_as_csim(gpointer param, OutputFunc_t output)
    char *p;
    gchar *description;
    
-   output(param, "<IMG SRC=\"%s\" WIDTH=%d HEIGHT=%d BORDER=0 "
-	  "USEMAP=\"#%s\">\n\n", _map_info.image_name,
+   output(param, "<img src=\"%s\" width=%d height=%d border=0 "
+	  "usemap=\"#%s\">\n\n", _map_info.image_name,
 	  _image_width, _image_height, _map_info.title);
-   output(param, "<MAP NAME=\"%s\">\n", _map_info.title);
+   output(param, "<map name=\"%s\">\n", _map_info.title);
    output(param, 
 	  "<!-- #$-:Image Map file created by GIMP Imagemap Plugin -->\n");
    output(param, "<!-- #$-:GIMP Imagemap Plugin by Maurits Rijk -->\n");
@@ -820,9 +820,9 @@ save_as_csim(gpointer param, OutputFunc_t output)
    
    object_list_write_csim(_shapes, param, output);
    if (*_map_info.default_url)
-      output(param, "<AREA SHAPE=\"DEFAULT\" HREF=\"%s\">\n",
+      output(param, "<area shape=\"default\" href=\"%s\">\n",
 	     _map_info.default_url);
-   output(param, "</MAP>\n");
+   output(param, "</map>\n");
 }
 
 static void
diff --git a/plug-ins/imagemap/imap_object.c b/plug-ins/imagemap/imap_object.c
index dff28d9b7f..76c6e9a3cb 100644
--- a/plug-ins/imagemap/imap_object.c
+++ b/plug-ins/imagemap/imap_object.c
@@ -953,22 +953,22 @@ object_list_write_csim(ObjectList_t *list, gpointer param, OutputFunc_t output)
    for (p = list->list; p; p = p->next) {
       Object_t *obj = (Object_t*) p->data;
 
-      output(param, "<AREA SHAPE=");
+      output(param, "<area shape=");
       obj->class->write_csim(obj, param, output);
       if (*obj->comment)
-	 output(param, " ALT=\"%s\"", obj->comment);
+	 output(param, " alt=\"%s\"", obj->comment);
       if (*obj->target)
-	 output(param, " TARGET=\"%s\"", obj->target);
+	 output(param, " target=\"%s\"", obj->target);
       if (*obj->mouse_over)
-	 output(param, " onMouseover=\"%s\"", obj->mouse_over);
+	 output(param, " onmouseover=\"%s\"", obj->mouse_over);
       if (*obj->mouse_out)
-	 output(param, " onMouseout=\"%s\"", obj->mouse_out);
+	 output(param, " onmouseout=\"%s\"", obj->mouse_out);
       if (*obj->focus)
-	 output(param, " onFocus=\"%s\"", obj->focus);
+	 output(param, " onfocus=\"%s\"", obj->focus);
       if (*obj->blur)
-	 output(param, " onBlur=\"%s\"", obj->blur);
+	 output(param, " onblur=\"%s\"", obj->blur);
 
-      output(param, " HREF=\"%s\">\n", obj->url);
+      output(param, " href=\"%s\">\n", obj->url);
    }
 }
 
diff --git a/plug-ins/imagemap/imap_polygon.c b/plug-ins/imagemap/imap_polygon.c
index 4c200d5464..39f5c38e22 100644
--- a/plug-ins/imagemap/imap_polygon.c
+++ b/plug-ins/imagemap/imap_polygon.c
@@ -571,7 +571,7 @@ polygon_write_csim(Object_t *obj, gpointer param, OutputFunc_t output)
    Polygon_t *polygon = ObjectToPolygon(obj);
    GList     *p;
 
-   output(param, "\"POLY\" COORDS=\"");
+   output(param, "\"poly\" coords=\"");
    for (p = polygon->points; p; p = p->next) {
       GdkPoint *point = (GdkPoint*) p->data;
       output(param, "%d,%d", point->x, point->y);
diff --git a/plug-ins/imagemap/imap_rectangle.c b/plug-ins/imagemap/imap_rectangle.c
index f6e8e3e8ce..db86563895 100644
--- a/plug-ins/imagemap/imap_rectangle.c
+++ b/plug-ins/imagemap/imap_rectangle.c
@@ -459,7 +459,7 @@ static void
 rectangle_write_csim(Object_t *obj, gpointer param, OutputFunc_t output)
 {
    Rectangle_t *rectangle = ObjectToRectangle(obj);
-   output(param, "\"RECT\" COORDS=\"%d,%d,%d,%d\"", rectangle->x, rectangle->y,
+   output(param, "\"rect\" coords=\"%d,%d,%d,%d\"", rectangle->x, rectangle->y,
 	  rectangle->x + rectangle->width, rectangle->y + rectangle->height);
 }