===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport0.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -p -r1.35 -r1.36
--- OpenXM/src/kan96xx/Kan/kanExport0.c	2004/09/15 06:40:26	1.35
+++ OpenXM/src/kan96xx/Kan/kanExport0.c	2004/09/16 02:22:03	1.36
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.34 2004/09/13 11:24:11 takayama Exp $  */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.35 2004/09/15 06:40:26 takayama Exp $  */
 #include <stdio.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -691,9 +691,9 @@ KooEqualQ(obj1,obj2)
   if (obj1.tag != obj2.tag) {
     warningKan("KooEqualQ(ob1,ob2): the datatypes of ob1 and ob2  are not same. Returns false (0).\n");
 	if (Verbose & 0x10) {
-	  fprintf(stderr,"obj1=");
+	  fprintf(stderr,"obj1(tag:%d)=",obj1.tag);
 	  printObject(obj1,0,stderr);
-	  fprintf(stderr,", obj2=");
+	  fprintf(stderr,", obj2(tag:%d)=",obj2.tag);
 	  printObject(obj2,0,stderr);
 	  fprintf(stderr,"\n"); fflush(stderr);
 	}