--- a/DebugView.st	Thu Feb 06 03:03:35 2014 +0100
+++ b/DebugView.st	Thu Feb 06 12:47:16 2014 +0100
@@ -450,8 +450,6 @@
 
     <context: #return>
 
-    |active|
-
     (NumberOfDebuggers ? 0) > self maxNumberOfDebuggers ifTrue:[
         NumberOfDebuggers := self allInstances count:[:d | d isOpen].
         NumberOfDebuggers > self maxNumberOfDebuggers ifTrue:[
@@ -479,7 +477,7 @@
         "
         (debugger := self openDebuggerForActiveProcess) notNil ifTrue:[
             debugger unstep.
-            debugger setLabelFor:aString in:active.
+            debugger setLabelFor:aString in:Processor activeProcess.
             debugger mayProceed:mayProceed.
             ^ debugger enter:aContext select:nil.
         ].
@@ -9068,15 +9066,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 ! !