--- a/DebugView.st	Sun Aug 17 12:48:08 2014 +0200
+++ b/DebugView.st	Mon Aug 18 21:34:03 2014 +0200
@@ -15,17 +15,16 @@
 	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
 		receiverInspector contextInspector contextArray selectedContext
 		catchBlock grabber mayProceed traceView tracing bigStep
-		skipLineNr steppedContextAddress abortButton terminateButton
-		continueButton stepButton nextButton nextOverButton nextOutButton
-		sendButton returnButton restartButton exclusive inspecting
-		nChainShown inspectedProcess updateProcess stopButton
-		updateButton defineButton monitorToggle stepping
-		steppedContextLineno stepForReturn actualContext inWrap
-		stackInspector steppedContext wrapperContext verboseBacktrace
-		firstContext stepHow cachable currentMethod ignoreBreakpoints
+		skipLineNr abortButton terminateButton continueButton stepButton
+		nextButton nextOverButton nextOutButton sendButton returnButton
+		restartButton exclusive inspecting nChainShown inspectedProcess
+		updateProcess updateButton defineButton monitorToggle stepping
+		steppedContextLineno actualContext inWrap stackInspector
+		steppedContext wrapperContext verboseBacktrace firstContext
+		stepHow cachable currentMethod ignoreBreakpoints
 		stepUntilEntering lastStepUntilEntering
 		lastSelectionInReceiverInspector lastSelectionInContextInspector
-		canShowMore exitAbort reportButton setOfHiddenCallingSelectors
+		canShowMore reportButton setOfHiddenCallingSelectors
 		isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
 		methodCodeToggleSelectionHolder
 		isStoppedAtBreakPointWithParameter breakPointParameter
@@ -7297,12 +7296,12 @@
             suspendContext := nil.
             c := con.
             1 to:10 do:[:i |
-                |sel|
+                |selector|
 
                 c notNil ifTrue:[
-                    (sel := c selector) notNil ifTrue:[
-                        ((sel isSymbol and:[sel startsWith:'suspend'])
-                        and:[c receiver isMemberOf:Process]) ifTrue:[
+                    selector := c selector.
+                    selector notNil ifTrue:[
+                        (selector isSymbol and:[(selector startsWith:'suspend') and:[c receiver isMemberOf:Process]]) ifTrue:[
                             suspendContext := c.
                             calledBySuspendContext := cc.
                         ].
@@ -7844,9 +7843,6 @@
      Here, we hide some well known methods, which are usually not too interesting;
      the set of methods which are suppressed is my (claus's) own choice."
 
-    |sel rec mClass
-     sender senderReceiver senderSelector senderReceiverClass|
-
     hideSupportCode ifFalse:[^ true].
     aContext isNil ifTrue:[^ true].
 
@@ -8383,16 +8379,15 @@
         category := givenCategoryOrNil.
         sel := selectedContext selector.
         implementorClass := selectedContext methodClass.
+        method := selectedContext method.
+
         implementorClass isNil ifTrue:[
-            method := selectedContext method.
             (method notNil and:[method mclass isNil]) ifTrue:[
                 method := method wrapper.
             ].
             method notNil ifTrue:[
                 implementorClass := method mclass
             ].
-        ] ifFalse:[
-            method := selectedContext method.
         ].
         implementorClass notNil ifTrue:[
             category isNil ifTrue:[
@@ -9454,15 +9449,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+    ^ '$Id: DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
 ! !