DebugView.st
changeset 9337 425ff4481f8b
parent 9314 e58b9abd145a
child 9348 df88a9a5ef36
--- a/DebugView.st	Tue Jan 12 10:51:42 2010 +0100
+++ b/DebugView.st	Mon Jan 18 17:27:16 2010 +0100
@@ -953,7 +953,7 @@
     1 to:5 do:[:i |
         con := aContextArray at:i ifAbsent:nil.
         con notNil ifTrue:[
-            sel := con selector.
+            sel := con selector ? ''.
             (sel startsWith:'raise') ifTrue:[
                 rcvr := con receiver.
                 (rcvr isLazyValue not and:[rcvr isException]) ifTrue:[
@@ -998,12 +998,12 @@
         (sel == #doesNotUnderstand:) ifTrue:[
             idx := 3.
             nMax > 2 ifTrue:[
-                sel := (aContextArray at:idx) selector.
+                sel := (aContextArray at:idx) selector ? ''.
                 sel == #doesNotUnderstand: ifTrue:[
                     idx := 4
                 ].
                 nMax > idx ifTrue:[
-                    sel := (aContextArray at:idx) selector.
+                    sel := (aContextArray at:idx) selector ? ''.
                     "/ show the place of the perfor-send; not where the Signal was raised...
                     ((sel == #perform:)
                     or:[sel startsWith:'perform:with']) ifTrue:[
@@ -6848,11 +6848,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.495 2010-01-18 16:27:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.495 2010-01-18 16:27:16 cg Exp $'
 ! !
 
 DebugView initialize!