===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/dr.sm1,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -p -r1.31 -r1.32
--- OpenXM/src/kan96xx/Kan/dr.sm1	2004/08/27 08:33:27	1.31
+++ OpenXM/src/kan96xx/Kan/dr.sm1	2004/08/31 04:45:42	1.32
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.30 2004/08/23 08:33:55 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.31 2004/08/27 08:33:27 takayama Exp $
 %% dr.sm1 (Define Ring) 1994/9/25, 26
 %% This file is error clean.
 
@@ -1328,6 +1328,7 @@
     /univ vars 0 get reverse
           vars 1 get reverse join
     def
+    w-vectors to_int /w-vectors set
     [
     0 1 << w-vectors length 1 sub >> 
     {
@@ -1350,7 +1351,8 @@
   /arg2 set  /arg1 set
   [/univ /www /k /vname /vweight /ans] pushVariables
   /univ arg1 def /www arg2 def
-  [ 
+  [
+    www to_int /www set 
     /ans << univ length >> -1 0 evecw def
     0  2  << www length 2 sub >>
     {
@@ -2522,6 +2524,7 @@ newline
   [
     /fff arg1 def
     /www arg2 def
+    www to_int /www set
     fff (0). eq { /ddd -intInfinity def /ord_w.LLL goto} { } ifelse
     fff (ring) dc /rrr set
     fff init /fff set
@@ -2553,6 +2556,7 @@ newline
   [
     /fff arg1 def
     /www arg2 def
+    www to_int /www set
     fff (0). eq { /ddd -intInfinity def /ord_w_all.LLL goto} { } ifelse
     /ddd -intInfinity def
     fff (ring) dc /rrr set