--- a/ProcessorScheduler.st	Thu Mar 09 11:52:57 1995 +0100
+++ b/ProcessorScheduler.st	Sat Mar 18 06:06:59 1995 +0100
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.32 1995-03-08 23:39:20 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.33 1995-03-18 05:05:50 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.32 1995-03-08 23:39:20 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.33 1995-03-18 05:05:50 claus Exp $
 "
 !
 
@@ -751,44 +751,12 @@
 
 resumeForSingleSend:aProcess
     "like resume, but let the process execute a single send only.
-     This is used by the debugger for single stepping."
-
-    |l pri wasBlocked|
+     This will be used by the (new, not yet released) debugger 
+     for single stepping."
 
     (aProcess isNil or:[aProcess == activeProcess]) ifTrue:[^ self].
-
-    "ignore, if process is already dead"
-    aProcess id isNil ifTrue:[^ self].
-
-    wasBlocked := OperatingSystem blockInterrupts.
-
-    pri := aProcess priority.
-
-    l := quiescentProcessLists at:pri.
-    l isNil ifTrue:[
-	l := LinkedList new.
-	quiescentProcessLists at:pri put:l
-    ] ifFalse:[
-	"if already running, ignore"
-	(l identityIndexOf:aProcess) ~~ 0 ifTrue:[
-	    wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-	    ^ self
-	]
-    ].
-    l addLast:aProcess.
-    wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-
-    (pri > currentPriority) ifTrue:[
-	"
-	 its prio is higher; immediately transfer control to it
-	"
-	self threadSwitch:aProcess
-    ] ifFalse:[
-	"
-	 its prio is lower; it will have to wait for a while ...
-	"
-	aProcess state:#suspended
-    ]
+    aProcess singleStep:true.
+    self resume:aProcess
 !
 
 terminateNoSignal:aProcess