diff --git a/src/modules/Image/colortable.c b/src/modules/Image/colortable.c
index f3745ec4e3397024e1cc9e9261a52d40ab0e26c2..8cc1463e68be15b25218ae3fc2d03b72c4952986 100644
--- a/src/modules/Image/colortable.c
+++ b/src/modules/Image/colortable.c
@@ -1,12 +1,12 @@
 #include "global.h"
 #include <config.h>
 
-/* $Id: colortable.c,v 1.67 1999/05/23 17:46:39 mirar Exp $ */
+/* $Id: colortable.c,v 1.68 1999/05/24 13:02:05 mirar Exp $ */
 
 /*
 **! module Image
 **! note
-**!	$Id: colortable.c,v 1.67 1999/05/23 17:46:39 mirar Exp $
+**!	$Id: colortable.c,v 1.68 1999/05/24 13:02:05 mirar Exp $
 **! class Colortable
 **!
 **!	This object keeps colortable information,
@@ -21,7 +21,7 @@
 #undef COLORTABLE_DEBUG
 #undef COLORTABLE_REDUCE_DEBUG
 
-RCSID("$Id: colortable.c,v 1.67 1999/05/23 17:46:39 mirar Exp $");
+RCSID("$Id: colortable.c,v 1.68 1999/05/24 13:02:05 mirar Exp $");
 
 #include <math.h> /* fabs() */
 
@@ -895,6 +895,13 @@ static struct nct_flat _img_get_flat_from_array(struct array *arr)
 		       0,0, 1, "array of colors or 0", 0,
 		       "Colortable(): bad element %d of colorlist\n",i);
 
+#if DEBUG
+      fprintf(stderr,"got %d: %02x%02x%02x\n",n,
+	      flat.entries[n].color.r,
+	      flat.entries[n].color.g,
+	      flat.entries[n].color.b);
+#endif
+
       flat.entries[n].weight=1;
       flat.entries[n].no=i;
       n++;
diff --git a/src/modules/Image/image_module.c b/src/modules/Image/image_module.c
index 0f296a9b1008c46fff8aef73ccfc7f8c8f9a5ae3..9fd7f46274997511a1a90cf3f471829b34f76363 100644
--- a/src/modules/Image/image_module.c
+++ b/src/modules/Image/image_module.c
@@ -1,7 +1,7 @@
 #include "global.h"
 #include "stralloc.h"
 #include "global.h"
-RCSID("$Id: image_module.c,v 1.1 1999/05/23 17:46:44 mirar Exp $");
+RCSID("$Id: image_module.c,v 1.2 1999/05/24 13:03:27 mirar Exp $");
 #include "pike_macros.h"
 #include "interpret.h"
 #include "program.h"
@@ -12,6 +12,7 @@ RCSID("$Id: image_module.c,v 1.1 1999/05/23 17:46:44 mirar Exp $");
 
 #define IMAGE_INITER
 
+/*#define DEBUG*/
 
 #define IMAGE_CLASS(name,init,exit,prog) \
     void init(void); void exit(void); struct program *prog;
@@ -141,9 +142,6 @@ void pike_module_init(void)
 {
    char type_of_index[]=
       tFunc(tStr,tOr3(tObj,tPrg,""))
-/*       "\004" tStr "\021" tVoid  */
-/*       "\373" tObj "\373" tPrg */
-
 #undef IMAGE_FUNCTION
 #undef IMAGE_SUBMODMAG
 #define IMAGE_SUBMODMAG(name,init,exit) 
@@ -159,6 +157,12 @@ void pike_module_init(void)
    for (i=0; i<(int)NELEM(initclass); i++)
    {
       start_new_program();
+
+#ifdef DEBUG
+      fprintf(stderr,"Image: initiating class \"Image.%s\"...\n",
+	      initclass[i].name);
+#endif
+
       (initclass[i].init)();
       IMAGE_CHECK_STACK(initclass[i].name);
       initclass[i].dest[0]=end_program();
@@ -169,6 +173,11 @@ void pike_module_init(void)
    {
       struct program *p;
       struct pike_string *s;
+
+#ifdef DEBUG
+      fprintf(stderr,"Image: initiating submodule \"Image.%s\"...\n",
+	      initsubmodule[i].name);
+#endif
       
       start_new_program();
       (initsubmodule[i].init)();