--- a/DebugView.st	Sat Oct 26 18:01:03 2013 +0100
+++ b/DebugView.st	Mon Nov 04 11:12:04 2013 -0300
@@ -1411,9 +1411,10 @@
             con := aContextArray at:i ifAbsent:nil.
             con notNil ifTrue:[
                 sel := con selector ? ''.
-                ((sel startsWith:'raise') 
+                (sel isSymbol
+                and:[ (sel startsWith:'raise') 
                 and:[ ((rcvr := con receiver) isLazyValue not) 
-                and:[ rcvr isExceptionCreator]]) ifTrue:[
+                and:[ rcvr isExceptionCreator]]]) ifTrue:[
                     offset := i.
                     found := con.
 
@@ -6999,7 +7000,8 @@
             (self haltSelectors includes:con selector) ifTrue:[
                 (method := con method) notNil ifTrue:[
                     method mclass == Object ifTrue:[
-                        (con selector startsWith:'breakPoint:') ifTrue:[
+                        (con selector isSymbol
+                        and:[ con selector startsWith:'breakPoint:']) ifTrue:[
                             isStoppedAtBreakPointWithParameter := true.
                             breakPointParameter := con argAt:1.
                         ].
@@ -7029,7 +7031,8 @@
             (self haltSelectors includes:con selector) ifTrue:[
                 (method := con method) notNil ifTrue:[
                     method mclass == Object ifTrue:[
-                        (con selector startsWith:'breakPoint:') ifTrue:[
+                        (con selector isSymbol
+                        and:[con selector startsWith:'breakPoint:']) ifTrue:[
                             isStoppedAtBreakPointWithParameter := true.
                             breakPointParameter := con argAt:1.
                         ].
@@ -7787,6 +7790,8 @@
         mthd := callee method.
         mthd notNil ifTrue:[
             (mthd selector == #subclassResponsibility) ifTrue:[
+                classToDefineIn := callee sender receiver class.
+                selectorToDefine := callee sender selector.
                 ^ true.
             ].
 
@@ -9032,11 +9037,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.638 2013-09-18 13:26:23 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.638 2013-09-18 13:26:23 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
 !
 
 version_HG
@@ -9045,7 +9050,7 @@
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.638 2013-09-18 13:26:23 vrany Exp $'
+    ^ '$Id: DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
 ! !