===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport1.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- OpenXM/src/kan96xx/Kan/kanExport1.c	2004/07/30 11:21:55	1.12
+++ OpenXM/src/kan96xx/Kan/kanExport1.c	2004/07/31 02:23:02	1.13
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.11 2004/02/23 09:03:42 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.12 2004/07/30 11:21:55 takayama Exp $ */
 #include <stdio.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -1397,6 +1397,7 @@ struct object KgetExponents(struct object obPoly,struc
       tob = KgetExponents(getoa(obPoly,i),otype);
       putoa(rob,i,tob);
     }
+	return rob;
   }else{
     errorKan1("%s\n","KgetExponents(): argument must be a polynomial.");
   }