diff --git a/scheme/xlib/colormap.scm b/scheme/xlib/colormap.scm
index 9231fdb..2df85ef 100644
--- a/scheme/xlib/colormap.scm
+++ b/scheme/xlib/colormap.scm
@@ -33,4 +33,17 @@
 	Xres)))
 
 (import-lambda-definition %alloc-named-color (Xcolormap name Xdisplay)
-  "scx_Alloc_Named_Color")
\ No newline at end of file
+  "scx_Alloc_Named_Color")
+
+
+; added by N. Freudemann
+; swaped from utility.scm to this file.
+
+(define (parse-color colormap string)
+  (%parse-color (display-Xdisplay (colormap-display colormap))
+		(colormap-Xcolormap colormap)
+		string))
+
+
+(import-lambda-definition %parse-color (Xdisplay Xcolormap string)
+  "scx_Parse_Color")
\ No newline at end of file