--- a/private.rc	Sat Sep 06 19:55:02 1997 +0200
+++ b/private.rc	Tue Sep 16 06:01:00 1997 +0200
@@ -206,13 +206,18 @@
     Compiler ccPath:'cl'.
     Compiler ccCompilationOptions:'/O1'.
 ] ifFalse:[
-    conf := Smalltalk configuration.
-    (conf includesString:'gcc') ifTrue:[
-	Compiler ccPath:'gcc'
+    ((systemType = 'vms') or:[systemType = 'openVMS']) ifTrue:[
+        Compiler ccPath:'cc'.
+        Compiler ccCompilationOptions:'/names=as_is /standard=common'.
     ] ifFalse:[
-	Compiler ccPath:'cc'
-    ].
-    Compiler ccCompilationOptions:'-O'.
+        conf := Smalltalk configuration.
+        (conf includesString:'gcc') ifTrue:[
+	    Compiler ccPath:'gcc'
+        ] ifFalse:[
+	    Compiler ccPath:'cc'
+        ].
+        Compiler ccCompilationOptions:'-O'.
+    ]
 ].
 
 includes := ''.
@@ -228,8 +233,8 @@
     includes := includes , '-I/usr/local/lib/smalltalk/include '.
 
     ('/usr/local/lib/smalltalk/include' asFilename exists) ifFalse:[
-	'private.rc [warning]: no include directory found (STX_PATH or /usr/local/lib/smalltalk).' errorPrintCR.
-	'private.rc [warning]: this will only affect stc-compilation from within the browser.' infoPrintCR.
+	'private.rc [warning]: no >>include<< directory found along your path.' errorPrintCR.
+	'private.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR.
     ].
 ].