--- a/ContextInspectorView.st	Sun Feb 10 13:48:36 2019 +0100
+++ b/ContextInspectorView.st	Sun Feb 10 22:40:09 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -228,15 +226,15 @@
                                         blockAtLine:aContext lineNumber
                                         in:nil
                                         orSource:('[' , method source , '\]') withCRs
-                                        numArgs:numArgs 
-                                        numVars:numVars.
+                                        numArgs:numArgs  "/ nil here 
+                                        numVars:numVars. "/ nil here
                     ] ifFalse:[
                         blockNode := Compiler 
                                         blockAtLine:methodHomeContext lineNumber
                                         in:method
                                         orSource:nil
-                                        numArgs:numArgs
-                                        numVars:numVars.
+                                        numArgs:numArgs  "/ nil here
+                                        numVars:numVars. "/ nil here
                     ].
 
                     realTempNames := OrderedCollection new.
@@ -274,7 +272,11 @@
 
                     wsNames := Workspace workspaceVariableNames.
                     wsNames notEmptyOrNil ifTrue:[
-                        p := Parser new source:method source; parseMethodBody; yourself.
+                        p := Parser new 
+                                source:method source; 
+                                parseMethodBody; 
+                                checkForEndOfInput;
+                                yourself.
                         names := (Set withAll:p readGlobals) addAll:p modifiedGlobals; yourself.
                         workspaceVariableNamesInDoIts := (names select:[:nm | wsNames includes:nm] ) 
                                                             asOrderedCollection sort.
@@ -318,6 +320,7 @@
     "Modified: / 03-06-2012 / 11:56:59 / cg"
     "Modified: / 05-11-2013 / 15:44:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 21-11-2017 / 13:00:53 / cg"
+    "Modified (comment): / 10-02-2019 / 16:39:38 / Claus Gittinger"
 !
 
 namesOfBlockContext:aContext