--- a/Tools__NewSystemBrowser.st Tue Apr 21 13:54:09 2020 +0200
+++ b/Tools__NewSystemBrowser.st Tue Apr 21 13:54:52 2020 +0200
@@ -55599,11 +55599,11 @@
<resource: #programMenu >
^ [
- |m|
-
- DebugView debuggedMethodHistory size ~~ 0 ifTrue:[
+ |history m|
+
+ (history := DebugView debuggedMethodHistory) size ~~ 0 ifTrue:[
m := Menu new.
- DebugView debuggedMethodHistory do:[:whoEntry |
+ history do:[:whoEntry |
|item itemLabel|
itemLabel := whoEntry methodClass name , ' >> ' , whoEntry methodSelector.