===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/smacro.sm1,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Kan/smacro.sm1	2004/05/13 05:33:10	1.3
+++ OpenXM/src/kan96xx/Kan/smacro.sm1	2004/09/04 11:25:58	1.4
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.2 2000/01/16 07:55:41 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.3 2004/05/13 05:33:10 takayama Exp $
 %%%%%% global control variables
 %%  /@@@.quiet 0 def  It is defined in scanner().
 /@@@.Dsymbol (D) def
@@ -65,6 +65,7 @@
      [$PrintDollar$ 0] system_variable pop
      @@@.quiet 0 eq
      {$sm1>$ print} { } ifelse
+     [(traceClearStack)] extension pop
    ] system_variable pop
 } def