--- loncom/homework/randomlylabel.pm	2003/02/27 21:30:55	1.7
+++ loncom/homework/randomlylabel.pm	2003/02/27 21:36:27	1.8
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # randomlabel.png: composite together text and images into 1 image
 #
-# $Id: randomlylabel.pm,v 1.7 2003/02/27 21:30:55 albertel Exp $
+# $Id: randomlylabel.pm,v 1.8 2003/02/27 21:36:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,7 +70,10 @@ sub handler {
         return OK;
     }
     #binmode(STDOUT);
-    my $black = $image->colorAllocate(0,0,0);
+    my $black;
+    if (!($black=$image->colorResolve(0,0,0))) {
+	$black = $image->colorClosestHWB(0,0,0);
+    }
     for(my $i=0;$i<$ENV{"form.ICOUNT"};$i++) {
 	my $subimage=&get_image($ENV{"form.IMG$i"},1);
 	$image->copy($subimage,$ENV{"form.X$i"},$ENV{"form.Y$i"},