diff --git a/scheme/xlib/color-type.scm b/scheme/xlib/color-type.scm
index ea7dea0..98e12cb 100644
--- a/scheme/xlib/color-type.scm
+++ b/scheme/xlib/color-type.scm
@@ -54,14 +54,15 @@
 	r)))
 
 (define (color-list-find* r g b) ;; r,g,b as integers
-  (call/cc (lambda (return)
-	     (table-walk (lambda (key value)
-			  (let ((color (weak-pointer-ref value)))
-			    (if (equal? (list r g b)
-					(extract-rgb-values color))
-				(return key))))
-			 *weak-color-list*)
-	     #f)))
+  (call-with-current-continuation
+   (lambda (return)
+     (table-walk (lambda (key value)
+		   (let ((color (weak-pointer-ref value)))
+		     (if (equal? (list r g b)
+				 (extract-rgb-values color))
+			 (return key))))
+		 *weak-color-list*)
+     #f)))
 
 (define (color-list-set! Xcolor color)
   (let ((p (make-weak-pointer color)))