--- a/ProcessorScheduler.st	Tue Apr 02 18:30:51 1996 +0200
+++ b/ProcessorScheduler.st	Wed Apr 03 00:06:56 1996 +0200
@@ -208,10 +208,10 @@
 
     tid = __threadCreate(aProcess, 
 			 0   /* stackSize: no longer needed */, 
-			 __isSmallInteger(id) ? _intVal(id)     /* assign id */
+			 __isSmallInteger(id) ? __intVal(id)     /* assign id */
 					      : -1              /* let VM assign one */  );
     if (tid) {
-	RETURN ( _MKSMALLINT(tid));
+	RETURN ( __MKSMALLINT(tid));
     }
 %}
 .
@@ -231,7 +231,7 @@
 %{  /* NOCONTEXT */
 
     if (__isSmallInteger(id)) {
-	__threadDestroy(_intVal(id));
+	__threadDestroy(__intVal(id));
     }
 %}
 !
@@ -245,7 +245,7 @@
 %{  /* NOCONTEXT */
 
     if (__isSmallInteger(id)) {
-	__threadInterrupt(_intVal(id));
+	__threadInterrupt(__intVal(id));
     }
 %}
 !
@@ -818,7 +818,7 @@
     extern OBJ ___threadSwitch();
 
     if (__isSmallInteger(id)) {
-        ok = ___threadSwitch(__context, _intVal(id), (singleStep == true) ? 1 : 0);
+        ok = ___threadSwitch(__context, __intVal(id), (singleStep == true) ? 1 : 0);
     } else {
         ok = false;
     }
@@ -1993,6 +1993,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.73 1996-03-08 12:04:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.74 1996-04-02 22:04:46 cg Exp $'
 ! !
 ProcessorScheduler initialize!