--- a/ProcessorScheduler.st	Wed Jul 22 06:38:29 2015 +0200
+++ b/ProcessorScheduler.st	Fri Jul 24 08:06:37 2015 +0100
@@ -337,7 +337,7 @@
 	sz := KnownProcessIds size.
 	1 to:sz do:[:index |
 	    "/ (KnownProcesses at:index) isNil ifTrue:[
-	    (KnownProcesses at:index) == 0 ifTrue:[
+	    (KnownProcesses at:index) class == SmallInteger ifTrue:[
 		id := KnownProcessIds at:index.
 		id notNil ifTrue:[
 		    'Processor [warning]: terminating thread ' errorPrint.
@@ -455,14 +455,14 @@
 knownProcesses
     "return a collection of all (living) processes in the system"
 
-    ^ KnownProcesses select:[:p | p notNil and:[p ~~ 0]]
+    ^ KnownProcesses select:[:p | p notNil and:[p class ~~ SmallInteger]]
 !
 
 knownProcessesDo:aBlock
     "evaluate aBlock for each (living) processes in the system"
 
     KnownProcesses do:[:p |
-	(p notNil and:[p ~~ 0]) ifTrue:[aBlock value:p]
+	(p notNil and:[p class ~~ SmallInteger]) ifTrue:[aBlock value:p]
     ]
 
     "Created: / 26-10-2012 / 13:02:33 / cg"
@@ -1008,7 +1008,7 @@
     "
     processesToRestart := OrderedCollection new.
     KnownProcesses do:[:p |
-	(p notNil and:[p ~~ 0]) ifTrue:[
+	(p notNil and:[p class ~~ SmallInteger]) ifTrue:[
 	    "how, exactly should this be done ?"
 
 	    p isRestartable == true ifTrue:[
@@ -3564,11 +3564,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.303 2015-04-27 17:04:46 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.303 2015-04-27 17:04:46 cg Exp $'
+    ^ '$Header$'
 ! !