===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/smacro.sm1,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- OpenXM/src/kan96xx/Kan/smacro.sm1	2004/09/16 23:53:44	1.7
+++ OpenXM/src/kan96xx/Kan/smacro.sm1	2004/09/17 00:47:09	1.8
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.6 2004/09/10 13:20:23 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.7 2004/09/16 23:53:44 takayama Exp $
 %%%%%% global control variables
 %%  /@@@.quiet 0 def  It is defined in scanner().
 /@@@.Dsymbol (D) def
@@ -100,7 +100,7 @@
    print  newline ;
 } def
 
-/. { dup tag 3 eq { exec } {expand} ifelse } def
+/. { expand } def
 
 
 /false 0 def