diff --git a/irteus/irtgl.l b/irteus/irtgl.l
index 1126e4d71..e75fe7076 100644
--- a/irteus/irtgl.l
+++ b/irteus/irtgl.l
@@ -460,7 +460,7 @@
        ((symbolp color)
 	(setq c (find-if #'(lambda (o) (eq (send o :name) color))
 			 *face-colors*))
-	(if c (send c :diffuse) (warn "Color name not found ")))
+	(if c (send c :diffuse) (warn "Color name (~A) not found~%" color)))
        (t color)))
     (unless v (setq v (float-vector 0.5 0.5 0.5)))
     v))