--- a/RegressionTests__ProcessTest.st	Fri Sep 19 14:58:12 2014 +0200
+++ b/RegressionTests__ProcessTest.st	Fri Sep 19 15:06:19 2014 +0200
@@ -28,9 +28,15 @@
 
     | blocker lastId maxId iters |
 
+
+    self 
+        skipIf: Processor maxProcessId = SmallInteger maxVal
+        description: 'Processor maxProcessId is huge, would take really a long time'.
+
     blocker := Semaphore new.
     lastId := Processor activeProcess id.
     maxId := Processor maxProcessId.
+
     iters := 0.
     [ lastId ~~ maxId ] whileTrue:[
         [ lastId := Processor activeProcess id. blocker signal ] fork.
@@ -50,7 +56,7 @@
     self assert: lastId < maxId.
 
     "Created: / 19-09-2014 / 12:50:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-09-2014 / 13:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 19-09-2014 / 14:06:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testTerminateWithAllSubProcesses