===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackmachine.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Kan/stackmachine.c	2000/01/21 01:08:12	1.3
+++ OpenXM/src/kan96xx/Kan/stackmachine.c	2000/02/02 03:30:48	1.4
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.3 2000/01/21 01:08:12 takayama Exp $ */
 /*   stackmachin.c */
 
 #include <stdio.h>
@@ -1195,6 +1195,10 @@ void KSpush(ob)
 struct object ob;
 {
   Kpush(ob);
+}
+
+struct object KSpeek(k) {
+  return(peek(k));
 }
 
 char *KSstringPop() {