===================================================================
RCS file: /home/cvs/OpenXM/src/ruby/testserv1.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/ruby/testserv1.c	2000/01/28 07:04:25	1.1
+++ OpenXM/src/ruby/testserv1.c	2000/01/28 08:24:42	1.2
@@ -1,5 +1,5 @@
 
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/ruby/testserv1.c,v 1.1 2000/01/28 07:04:25 ogino Exp $ */
 
 #include <stdio.h>
 /* #include <pari.h> */
@@ -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;
 }