Changes ForkPool >> addWorker to 'private' protocol

js/Kernel-Methods.js

@@ -635,7 +635,7 @@ smalltalk.addMethod(
 "_addWorker",
 smalltalk.method({
 selector: "addWorker",
-category: 'action',
+category: 'private',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
_st(self["@worker"])._valueWithTimeout_((0));
@@ -670,7 +670,7 @@ smalltalk.addMethod(
 "_fork_",
 smalltalk.method({
 selector: "fork:",
-category: 'action',
+category: 'actions',
 fn: function (aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
var $1;

st/Kernel-Methods.st

@@ -237,12 +237,7 @@ maxPoolSize: anInteger
 	maxPoolSize := anInteger
 ! !
 
-!ForkPool methodsFor: 'action'!
-
-addWorker
-	worker valueWithTimeout: 0.
-    poolSize := poolSize + 1
-!
+!ForkPool methodsFor: 'actions'!
 
 fork: aBlock
 	poolSize < self maxPoolSize ifTrue: [ self addWorker ].
@@ -275,6 +270,13 @@ makeWorker
         	[ block value ] ensure: [ self addWorker ]]]
 ! !
 
+!ForkPool methodsFor: 'private'!
+
+addWorker
+	worker valueWithTimeout: 0.
+    poolSize := poolSize + 1
+! !
+
 ForkPool class instanceVariableNames: 'default'!
 
 !ForkPool class methodsFor: 'accessing'!