--- a/Parser.st	Wed Aug 04 16:14:50 1999 +0200
+++ b/Parser.st	Mon Aug 09 16:42:39 1999 +0200
@@ -4658,8 +4658,10 @@
         "/ for the code.
         "/ We only care for WorkspaceVars in doIts
         (selector isNil or:[selector == #doIt]) ifTrue:[
-            (holder := Workspace workspaceVariableAt:varName) notNil ifTrue:[
-                ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
+	    Workspace notNil and:[
+                (holder := Workspace workspaceVariableAt:varName) notNil ifTrue:[
+                    ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
+		]
             ]
         ]
     ].
@@ -5177,6 +5179,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.222 1999-08-02 12:58:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.223 1999-08-09 14:42:39 cg Exp $'
 ! !
 Parser initialize!