===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackmachine.c,v
retrieving revision 1.1.1.1
retrieving revision 1.5
diff -u -p -r1.1.1.1 -r1.5
--- OpenXM/src/kan96xx/Kan/stackmachine.c	1999/10/08 02:12:01	1.1.1.1
+++ OpenXM/src/kan96xx/Kan/stackmachine.c	2000/11/20 13:33:22	1.5
@@ -1,3 +1,4 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.4 2000/02/02 03:30:48 takayama Exp $ */
 /*   stackmachin.c */
 
 #include <stdio.h>
@@ -13,7 +14,8 @@
 /* #define OPERAND_STACK_SIZE  2000 */
 #define OPERAND_STACK_SIZE 30000 
 #define SYSTEM_DICTIONARY_SIZE 200
-#define USER_DICTIONARY_SIZE   1223
+/* #define USER_DICTIONARY_SIZE   1223 */
+#define USER_DICTIONARY_SIZE  3581
 /* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing
    method */
 #define ARGV_WORK_MAX  (AGLIMIT+100)
@@ -806,6 +808,7 @@ void scanner() {
 	fprintf(Fstack,"\nscanner> ");
       }
       KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */
+	  continue ;
     } else {  }
     if (DebugStack >= 1) { printOperandStack(); }
     token = getokenSM(GET);
@@ -1193,6 +1196,10 @@ void KSpush(ob)
 struct object ob;
 {
   Kpush(ob);
+}
+
+struct object KSpeek(k) {
+  return(peek(k));
 }
 
 char *KSstringPop() {