--- a/ProcessorScheduler.st	Fri Nov 25 21:46:07 2011 +0000
+++ b/ProcessorScheduler.st	Sat Nov 26 08:36:46 2011 +0000
@@ -2223,6 +2223,7 @@
             myDelay := Delay forMilliseconds:(t := TimeSliceInterval).
             flipFlop := true.
 
+            'Processor [info]: timeslicer started' infoPrintCR.
             [true] whileTrue: [
                 t ~~ TimeSliceInterval ifTrue:[
                     "/ interval changed -> need a new delay
@@ -2244,7 +2245,8 @@
                 ].
             ]
         ] ifCurtailed:[
-            timeSliceProcess := nil
+            timeSliceProcess := nil.
+            'Processor [info]: timeslicer finished' infoPrintCR.
         ]
     ] newProcess.
     timeSliceProcess priority:HighestPriority.
@@ -2258,8 +2260,8 @@
      Processor startTimeSlicing.
     "
 
-    "Created: / 17.1.1997 / 16:42:02 / cg"
-    "Modified: / 27.8.1998 / 13:04:31 / cg"
+    "Created: / 17-01-1997 / 16:42:02 / cg"
+    "Modified: / 03-11-2011 / 21:21:10 / cg"
 !
 
 stopTimeSlicing
@@ -3380,16 +3382,17 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.259 2011/08/10 17:57:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.260 2011/11/03 20:32:58 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.259 2011/08/10 17:57:35 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.260 2011/11/03 20:32:58 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: ProcessorScheduler.st 10729 2011-10-31 22:19:21Z vranyj1 $'
+    ^ '$Id: ProcessorScheduler.st 10741 2011-11-26 08:36:46Z vranyj1 $'
 ! !
 
 ProcessorScheduler initialize!
 
+