--- a/CodeView.st	Thu May 07 19:42:52 1998 +0200
+++ b/CodeView.st	Thu May 07 19:44:37 1998 +0200
@@ -140,11 +140,11 @@
                           #Accept #Explain)>
     <resource: #programMenu>
 
-    |m sub|
+    |m sub sensor|
 
     m := super editMenu.
 
-    self sensor ctrlDown ifFalse:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifFalse:[
         "
          codeViews do support #accept
          ... add it after #inspectIt
@@ -176,7 +176,7 @@
     ].
     ^ m.
 
-    "Modified: / 9.11.1997 / 01:07:03 / cg"
+    "Modified: / 7.5.1998 / 02:48:01 / cg"
 !
 
 explain
@@ -197,5 +197,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.38 1997-11-11 13:52:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.39 1998-05-07 17:44:37 cg Exp $'
 ! !