--- a/ProcessorScheduler.st	Mon Sep 27 13:38:15 2004 +0200
+++ b/ProcessorScheduler.st	Tue Sep 28 20:00:37 2004 +0200
@@ -1339,14 +1339,11 @@
     activeProcessId := id.
 %{
     extern OBJ ___threadSwitch();
-    OBJ ok;
 
     if (__isSmallInteger(id)) {
-	ok = ___threadSwitch(__context, __intVal(id), (singleStep == true) ? 1 : 0, 0);
-    } else {
-	ok = false;
+        RETURN ( ___threadSwitch(__context, __intVal(id), (singleStep == true) ? 1 : 0, 0) );
     }
-    RETURN (ok)
+    RETURN (false);
 %}
 ! !
 
@@ -3318,7 +3315,7 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.224 2004-09-07 14:51:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.225 2004-09-28 18:00:37 cg Exp $'
 ! !
 
 ProcessorScheduler initialize!