===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/var.sm1,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/kan96xx/Kan/var.sm1	1999/11/08 09:15:01	1.2
+++ OpenXM/src/kan96xx/Kan/var.sm1	2000/01/20 01:34:48	1.3
@@ -1,4 +1,4 @@
-% $OpenXM$
+% $OpenXM: OpenXM/src/kan96xx/Kan/var.sm1,v 1.2 1999/11/08 09:15:01 takayama Exp $
 %% start of var.sm1.  1997, 2/27
 %%(type in initv to initialize the variable stack and type in test.var to start a test) message
 
@@ -221,6 +221,10 @@ initv 
 [(chattr) 0 /v1] extension  %% used in join.
 [(chattr) 0 /v2] extension
 [(chattr) 0 /@.usages] extension
+[(chattr) 0 /@@@expand.arg1] extension
+[(chattr) 0 /f-expand] extension
+[(chattr) 0 /f-ans] extension
+[(chattr) 0 /in-expand] extension
 @@@.quiet.var {   }
 { (var.sm1 : Strict control of the name space is enabled. (cf. extension)) message }
 ifelse