--- a/ContextInspectorView.st	Sat Jan 17 15:20:30 1998 +0100
+++ b/ContextInspectorView.st	Sat Jan 17 15:22:24 1998 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.3.1 on 14-jan-1998 at 12:12:21 am'                 !
-
 InspectorView subclass:#ContextInspectorView
 	instanceVariableNames:'inspectedContext names showingTemporaries argsOnly contextSize'
 	classVariableNames:''
@@ -60,7 +58,7 @@
     |homeContext method homeNames rec sel implementorClass 
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
-     numArgs numVars n tempNames realTempNames|
+     numArgs numVars n tempNames realTempNames src|
 
     (aContext == inspectedContext) ifTrue:[
         "/ care for contexts which change size
@@ -280,36 +278,32 @@
                 isDoIt ifTrue:[
                     "/ special for #doIt
                     "/ my source is found in the method.
-                    blockNode := Compiler
-                                    blockAtLine:(aContext lineNumber)
-                                    in:nil
-                                    orSource:('[' , method source , '\]') withCRs
-                                    numArgs:numArgs 
-                                    numVars:numVars.
-
+                    m := nil.
+                    src := ('[' , method source , '\]') withCRs
                 ] ifFalse:[
-                    blockNode := Compiler 
-                                    blockAtLine:(aContext lineNumber)
-                                    in:method
-                                    orSource:nil
-                                    numArgs:numArgs
-                                    numVars:numVars.
-                ]
-            ].
-
-            blockNode notNil ifTrue:[
-                numArgs > 0 ifTrue:[
-                    vars := blockNode arguments.
-                    vars size > 0 ifTrue:[
-                        argNames := vars collect:[:var | var name]
+                    m := method.
+                    src := nil.
+                ].
+                blockNode := Compiler
+                                blockAtLine:(aContext lineNumber)
+                                in:m
+                                orSource:src
+                                numArgs:numArgs 
+                                numVars:numVars.
+                blockNode notNil ifTrue:[
+                    numArgs > 0 ifTrue:[
+                        vars := blockNode arguments.
+                        vars size > 0 ifTrue:[
+                            argNames := vars collect:[:var | var name]
+                        ]
+                    ].
+                    numVars > 0 ifTrue:[
+                        vars := blockNode variables.
+                        vars size > 0 ifTrue:[
+                            varNames := vars collect:[:var | var name].
+                        ]
                     ]
                 ].
-                numVars > 0 ifTrue:[
-                    vars := blockNode variables.
-                    vars size > 0 ifTrue:[
-                        varNames := vars collect:[:var | var name].
-                    ]
-                ]
             ].
         ].
 
@@ -349,7 +343,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: / 13.1.1998 / 17:41:42 / cg"
+    "Modified: / 17.1.1998 / 03:22:43 / cg"
 !
 
 release
@@ -521,5 +515,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.39 1998-01-16 15:26:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.40 1998-01-17 14:22:24 cg Exp $'
 ! !