--- a/host.rc	Fri Sep 01 14:33:54 2017 +0200
+++ b/host.rc	Thu Sep 21 13:55:38 2017 +0200
@@ -40,8 +40,8 @@
 
 (Smalltalk wasStartedFromImage not and:[ Smalltalk isPlugin not ])
 ifTrue:[
-    Compiler stcCompilation:#default.
-    Compiler stcCompilationOptions:'+optinline +inlineNew'.
+    ParserFlags stcCompilation:#default.
+    ParserFlags stcCompilationOptions:'+optinline +inlineNew'.
 
     "/
     "/ setup for gcc (which is OK for most systems);
@@ -49,25 +49,25 @@
     "/
     conf := Smalltalk configuration.
     (conf includesString:'gcc') ifTrue:[
-	Compiler ccPath:'gcc'
+	ParserFlags ccPath:'gcc'
     ] ifFalse:[
 	(conf includesString:'clang') ifTrue:[
-	    Compiler ccPath:'clang'
+	    ParserFlags ccPath:'clang'
 	] ifFalse:[
-	    Compiler ccPath:'cc'
+	    ParserFlags ccPath:'cc'
 	].
     ].
-    Compiler ccCompilationOptions:'-O'.
+    ParserFlags ccCompilationOptions:'-O'.
 
     (conf includesString:'amd64_mode32') ifTrue:[
 	((ObjectFileLoader linkArgs ? '') includesString:'-m32') ifFalse:[
 	    ObjectFileLoader linkArgs:((ObjectFileLoader linkArgs ? '') , ' -m32 -m elf_i386').
 	].
-	(Compiler ccCompilationOptions includesString:'-m32') ifFalse:[
-	    Compiler ccCompilationOptions:(Compiler ccCompilationOptions , ' -m32').
+	(ParserFlags ccCompilationOptions includesString:'-m32') ifFalse:[
+	    ParserFlags ccCompilationOptions:(ParserFlags ccCompilationOptions , ' -m32').
 	].
-	((Compiler stcCompilationDefines ? '') includesString:'-D__amd64_mode32__') ifFalse:[
-	    Compiler stcCompilationDefines:((Compiler stcCompilationDefines ? ''), ' -D__amd64_mode32__').
+	((ParserFlags stcCompilationDefines ? '') includesString:'-D__amd64_mode32__') ifFalse:[
+	    ParserFlags stcCompilationDefines:((ParserFlags stcCompilationDefines ? ''), ' -D__amd64_mode32__').
 	].
     ].
 
@@ -97,7 +97,7 @@
 	]
     ].
 
-    Compiler stcCompilationIncludes:includes.
+    ParserFlags stcCompilationIncludes:includes.
 
     "/
     "/ for myself: preset flags, so that we can accept GLXWorkstation code
@@ -105,10 +105,10 @@
     "/
     (Display notNil and:[Display supportsGLDrawing]) ifTrue:[
 	sysType = 'irix' ifTrue:[
-	    Compiler stcCompilationDefines:'-DGLX'.
+	    ParserFlags stcCompilationDefines:'-DGLX'.
 	] ifFalse:[
-	    Compiler stcCompilationIncludes:'-I../../include -I../../support/VGL/vogl/src'.
-	    Compiler stcCompilationDefines:'-DVGL'.
+	    ParserFlags stcCompilationIncludes:'-I../../include -I../../support/VGL/vogl/src'.
+	    ParserFlags stcCompilationDefines:'-DVGL'.
 	]
     ].
 ].