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

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

Name: ST80-ar.51
Author: ar
Time: 4 September 2009, 12:16:11 pm
UUID: 114c8a0a-6ee8-ec4a-9079-ef237be6ca53
Ancestors: ST80-ar.50

http://bugs.squeak.org/view.php?id=7321

Change Set:		M7321_cleanup_offList_senders-nice
Date:			19 April 2009
Author:			nice

#offList is OBSOLETED by AtomicProcessSuspend.1.cs 
Senders of #offList must be cleaned up

=============== Diff against ST80-ar.50 ===============

Item was changed:
  ----- Method: ControlManager>>interruptName:preemptedProcess: (in category 'scheduling') -----
  interruptName: labelString preemptedProcess: theInterruptedProcess
  	"Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller."
  	| suspendingList newActiveController preemptedProcess |
  
  	preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess].
+ 	preemptedProcess suspend.
- 	preemptedProcess == activeControllerProcess
- 		ifFalse: [(suspendingList := preemptedProcess suspendingList) == nil
- 				ifTrue: [preemptedProcess suspend]
- 				ifFalse: [suspendingList remove: preemptedProcess.
- 						preemptedProcess offList]].
  
  	(suspendingList := activeControllerProcess suspendingList) == nil
  		ifTrue: [activeControllerProcess == Processor activeProcess
  					ifTrue: [activeControllerProcess suspend]]
  		ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[].
  				activeControllerProcess offList].
  
  	activeController ~~ nil ifTrue: [
  		"Carefully de-emphasis the current window."
  		activeController view topView deEmphasizeForDebugger].
  
  	newActiveController :=
  		(Debugger
  			openInterrupt: labelString
  			onProcess: preemptedProcess) controller.
  	newActiveController centerCursorInView.
  	self activeController: newActiveController.
  !