--- a/Context.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/Context.st	Fri Jul 08 19:15:03 2005 +0200
@@ -310,7 +310,7 @@
 
 %{  /* NOCONTEXT */
 
-    RETURN ( __MKSMALLINT( (__intVal(__INST(flags)) >> __NARG_SHIFT) & __NARG_MASK) );
+    RETURN ( __mkSmallInteger( (__intVal(__INST(flags)) >> __NARG_SHIFT) & __NARG_MASK) );
 %}
 !
 
@@ -562,7 +562,7 @@
 
 %{  /* NOCONTEXT */
 
-    RETURN ( __MKSMALLINT( (__intVal(__INST(flags)) >> __NARG_SHIFT) & __NARG_MASK) );
+    RETURN ( __mkSmallInteger( (__intVal(__INST(flags)) >> __NARG_SHIFT) & __NARG_MASK) );
 %}
 !
 
@@ -581,7 +581,7 @@
 
 %{  /* NOCONTEXT */
 
-    RETURN ( __MKSMALLINT( (__intVal(__INST(flags)) >> __NVAR_SHIFT) & __NVAR_MASK) );
+    RETURN ( __mkSmallInteger( (__intVal(__INST(flags)) >> __NVAR_SHIFT) & __NVAR_MASK) );
 %}
 !
 
@@ -693,7 +693,7 @@
     flg = flg & ~(__NVAR_MASK << __NVAR_SHIFT);
     flg = flg | __intVal(nA) << __NARG_SHIFT;
     flg = flg | __intVal(nV) << __NVAR_SHIFT;
-    __INST(flags) = __MKSMALLINT(flg);
+    __INST(flags) = __mkSmallInteger(flg);
 %}
 !
 
@@ -2219,7 +2219,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.131 2005-07-08 15:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.132 2005-07-08 17:15:01 cg Exp $'
 ! !
 
 Context initialize!