===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/dr.sm1,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -p -r1.40 -r1.41
--- OpenXM/src/kan96xx/Kan/dr.sm1	2004/09/14 01:57:15	1.40
+++ OpenXM/src/kan96xx/Kan/dr.sm1	2004/09/14 02:02:02	1.41
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.39 2004/09/12 02:47:45 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.40 2004/09/14 01:57:15 takayama Exp $
 %% dr.sm1 (Define Ring) 1994/9/25, 26
 %% This file is error clean.
 
@@ -4273,7 +4273,7 @@ $ [ff ff] fromVectors :: $ 
     {  % begin loop
 
        name isArray {
-         /ukeys @.usages { 0 get } map def
+         /ukeys @.usages { 0 get } map shell def
          name { /key set [(regexec) key ukeys] extension
                 { 0 get } map } map /sss set
          exit