===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/dr.sm1,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- OpenXM/src/kan96xx/Kan/dr.sm1	2003/08/23 02:28:38	1.19
+++ OpenXM/src/kan96xx/Kan/dr.sm1	2003/08/24 05:19:42	1.20
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.18 2003/08/20 01:39:16 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.19 2003/08/23 02:28:38 takayama Exp $
 %% dr.sm1 (Define Ring) 1994/9/25, 26
 %% This file is error clean.
 
@@ -3772,6 +3772,7 @@ $ [ff ff] fromVectors :: $ 
 /endEcart {
   (red@) (standard) switch_function
   [(Ecart) 0] system_variable
+  [(degreeShift) (reset)] homonigeze pop
 } def
 
 /ord_ws_all {