--- 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!