diff -r 025ab5b349c5 -r c600f7430132 DebugView.st
--- a/DebugView.st	Tue Jun 03 20:10:44 2003 +0200
+++ b/DebugView.st	Tue Jun 03 20:34:52 2003 +0200
@@ -1455,10 +1455,10 @@
     ] do:[
         con := thisContext sender.
         [   
-            (con selector ~~ #enter:select:)
-            or:[con receiver ~~ self]
+            (con selector == #enter:select:)
+            and:[con receiver == self]
         ]
-        whileTrue:[ con := con sender ].
+        whileFalse:[ con := con sender ].
 
         con unwindThenDo:[AbortOperationRequest raise].
 "/        AbortOperationRequest raise.
@@ -5464,17 +5464,20 @@
         con := ex suspendedContext.
         s nextPutAll: '**** '; nextPutLine:(con printString).
         con := con sender.
-        [con notNil] whileTrue:[
-            Error catch:[:ex |
-                s nextPutAll: '**** '; nextPutLine:(con printString).
-            ].
-
-            con receiver == self ifTrue:[
-                con := nil
-            ] ifFalse:[
-                con := con sender.
-            ]
-        ].
+
+        con fullPrintAllOn:s.
+
+"/        [con notNil] whileTrue:[
+"/            Error catch:[:ex |
+"/                s nextPutAll: '**** '; nextPutLine:(con printString).
+"/            ].
+"/
+"/            (con receiver == self and:[con selector == #'enter:select:']) ifTrue:[
+"/                con := nil
+"/            ] ifFalse:[
+"/                con := con sender.
+"/            ]
+"/        ].
         codeView contents:(s contents).
         ex return.
     ] do:[
@@ -5640,7 +5643,7 @@
                             "
                             
                             ((sender := homeContext sender) notNil
-                            and:[(sender selector startsWith:'valueWithReceiver:')
+                            and:[((sender selector ? '') startsWith:'valueWithReceiver:')
                             and:[sender receiver isMethod]]) ifTrue:[
                                 method := sender receiver.
                                 self sensor shiftDown ifTrue:[
@@ -5672,7 +5675,7 @@
                     "/ fall back heuristics
                     con isBlockContext ifTrue:[
                         ((sender := con sender) notNil
-                        and:[(sender selector startsWith:'value')
+                        and:[((sender selector ? '') startsWith:'value')
                         and:[sender receiver isBlock]]) ifTrue:[
                             code := sender receiver source.
                         ]
@@ -5892,7 +5895,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.343 2003-05-28 08:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.344 2003-06-03 18:34:52 cg Exp $'
 ! !
 
 DebugView initialize!