===================================================================
RCS file: /home/cvs/OpenXM/src/k097/slib.sm1,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- OpenXM/src/k097/slib.sm1	2003/11/20 09:20:36	1.10
+++ OpenXM/src/k097/slib.sm1	2004/09/10 13:20:23	1.11
@@ -182,7 +182,7 @@ FunctionValue } def
  /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /f /r  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset
- f  r   ,, /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
+ f  r   __ /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
  db.DebugStack setstack pop stdstack 
 FunctionValue } def
 %%end of function