--- a/private.rc	Fri Oct 18 14:51:22 1996 +0200
+++ b/private.rc	Thu Oct 24 17:02:41 1996 +0200
@@ -65,6 +65,8 @@
 thisIsMySystem := whoAmI = 'claus' or:[whoAmI = 'cg'].
 
 thisIsMySystem ifTrue:[
+    MenuView defaultFont:(MenuView defaultFont size:10).
+
     Smalltalk systemPath addFirst:'../../not_delivered'.
     Smalltalk systemPath addFirst:'../../private_classes'.
     Smalltalk systemPath addFirst:'../../fileIn/not_delivered'.

--- a/stbc.rc	Fri Oct 18 14:51:22 1996 +0200
+++ b/stbc.rc	Thu Oct 24 17:02:41 1996 +0200
@@ -2,12 +2,22 @@
 "/ $Header$
 "/
 "/ bytecode compiler frontend for smalltalk
+"/ usage: stbc file.st
 "/
+"/ creates file.cls, which can be binary loaded.
+"/
+"/ Notice: 
+"/   this is an experiment to provide a tool which looks like javac; 
+"/   stbc is actually not used in the current system.
+"/   (the same functionality is provided by the browsers fileOut-binary function)
+"/
+"/ By the way - this is an example for a headless application.
 
 "/ load the files, save binary versions
 
 |args|
 
+Compiler stcCompilation:#never.
 Object userInterruptSignal handlerBlock:[:ex | Smalltalk exit].
 
 args := Smalltalk commandLineArguments.
@@ -19,7 +29,7 @@
 	('loading ' , inFile name , ' ...') errorPrintCR.
 	Object errorSignal handle:[:ex |
 	    'error while loading: ' errorPrint. ex errorString errorPrintCR.
-        ] do:[
+	] do:[
 	    Smalltalk fileIn:inFile name.
 	].
 	('done loading') errorPrintCR.