diff --git a/irteus/irtgl.l b/irteus/irtgl.l
index 70774075f..4e5cb64c9 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 not found ~A~%" color)))
        (t color)))
     (unless v (setq v (float-vector 0.5 0.5 0.5)))
     v))
@@ -470,8 +470,7 @@
   (let (fc dif)
     (when (setq fc (get abody :face-color))
       (unless (vectorp fc)
-	(warn "transparent: body ~A param ~A face-color ~A~%" abody param fc)
-	(setq fc (find-color fc)))
+        (setq fc (find-color fc)))
       (if (= (length fc) 3)
 	  (setq fc
 	    (concatenate float-vector fc #f(0))))
diff --git a/irteus/irtglrgb.l b/irteus/irtglrgb.l
index dadee898d..5974883b2 100644
--- a/irteus/irtglrgb.l
+++ b/irteus/irtglrgb.l
@@ -1977,8 +1977,8 @@
 		  :create :name :grey100
 		  :diffuse #f(0.99609375 0.99609375 0.99609375))
 	(instance colormaterial
-		  :create :name :DarkGrey
-		  :diffuse #f(0.66015625 0.66015625 0.66015625))
+		  :create :name :silver
+		  :diffuse #f(0.75 0.75 0.75))
 	(instance colormaterial
 		  :create :name :DarkGray
 		  :diffuse #f(0.66015625 0.66015625 0.66015625))