===================================================================
RCS file: /home/cvs/OpenXM/src/ruby/testserv1.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/ruby/testserv1.c	2000/01/28 07:04:25	1.1
+++ OpenXM/src/ruby/testserv1.c	2000/03/14 11:14:00	1.3
@@ -1,9 +1,9 @@
 
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/ruby/testserv1.c,v 1.2 2000/01/28 08:24:42 ogino Exp $ */
 
 #include <stdio.h>
 /* #include <pari.h> */
-#include "../ox_toolkit/ox.h"
+#include "ox_toolkit.h"
 
 int fd_rw = 3;
 
@@ -106,6 +106,10 @@ int getdisc(n)
 
 int pushdisc()
 {
+  if (get_i() != 1) {
+    push(make_error2(0));
+    return -1;
+  }
   push(new_cmo_int32(getdisc(get_i())));
   return 0;
 }