diff --git a/c/xlib/colormap.c b/c/xlib/colormap.c
index ca2dc28..d30157a 100644
--- a/c/xlib/colormap.c
+++ b/c/xlib/colormap.c
@@ -42,9 +42,22 @@ s48_value scx_Alloc_Named_Color(s48_value Xcolormap, s48_value color_name,
   return ret;
 }
 
+// swaped from util.c to this file
+
+s48_value scx_Parse_Color (s48_value Xdpy, s48_value cmap, s48_value spec) {
+    XColor ret;
+
+    if (XParseColor (SCX_EXTRACT_DISPLAY(Xdpy),
+		     SCX_EXTRACT_COLORMAP(cmap),
+		     s48_extract_string(spec),
+		     &ret))
+	return scx_create_Color (ret.red, ret.green, ret.blue);
+    return S48_FALSE;
+}
 
 void scx_init_colormap(void) {
   S48_EXPORT_FUNCTION(scx_Free_Colormap);
   S48_EXPORT_FUNCTION(scx_Alloc_Color);
   S48_EXPORT_FUNCTION(scx_Alloc_Named_Color);
+  S48_EXPORT_FUNKTION(scx_Parse_Color);
 }