--- a/DebugView.st Thu Jul 31 13:57:16 1997 +0200
+++ b/DebugView.st Thu Jul 31 17:07:18 1997 +0200
@@ -2597,7 +2597,7 @@
c notNil ifTrue:[
(sel := c selector) notNil ifTrue:[
- ((sel startsWith:'suspend')
+ ((sel isSymbol and:[sel startsWith:'suspend'])
and:[c receiver isMemberOf:Process]) ifTrue:[
suspendContext := c
].
@@ -2727,7 +2727,7 @@
^ true
"Created: 14.12.1995 / 19:10:31 / cg"
- "Modified: 27.3.1997 / 18:25:17 / cg"
+ "Modified: 31.7.1997 / 16:11:57 / cg"
!
setContextSkippingInterruptContexts:aContext
@@ -3521,6 +3521,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.163 1997-07-24 16:18:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.164 1997-07-31 15:07:18 cg Exp $'
! !
DebugView initialize!