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