Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.143.mcz

==================== Summary ====================

Name: System-ar.143
Author: ar
Time: 6 September 2009, 11:16:12 am
UUID: d1f623d5-4130-594d-983d-38e81b43fffe
Ancestors: System-eem.142

More offList/suspend cleanup.

=============== Diff against System-eem.142 ===============

Item was changed:
  ----- Method: Project class>>interruptName:preemptedProcess: (in category 'utilities') -----
  interruptName: labelString preemptedProcess: theInterruptedProcess
  	"Create a Notifier on the active scheduling process with the given label."
  	| preemptedProcess projectProcess |
  	Smalltalk isMorphic ifFalse:
  		[^ ScheduledControllers interruptName: labelString].
  	ActiveHand ifNotNil:[ActiveHand interrupted].
+ 	ActiveWorld := World. "reinstall active globals"
+ 	ActiveHand := World primaryHand.
- 	ActiveWorld _ World. "reinstall active globals"
- 	ActiveHand _ World primaryHand.
  	ActiveHand interrupted. "make sure this one's interrupted too"
+ 	ActiveEvent := nil.
- 	ActiveEvent _ nil.
  
+ 	projectProcess := self uiProcess.	"we still need the accessor for a while"
+ 	preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess].
- 	projectProcess _ self uiProcess.	"we still need the accessor for a while"
- 	preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess].
  	"Only debug preempted process if its priority is >= projectProcess' priority"
+ 	preemptedProcess priority < projectProcess priority 
+ 		ifTrue:[preemptedProcess := projectProcess].
+ 	preemptedProcess suspend.
- 	preemptedProcess priority < projectProcess priority ifTrue:[
- 		projectProcess suspend.
- 		preemptedProcess _ projectProcess.
- 	] ifFalse:[
- 		preemptedProcess suspend offList.
- 	].
  	Debugger openInterrupt: labelString onProcess: preemptedProcess
  !