--- a/Launcher.st	Sat Aug 24 12:07:54 1996 +0200
+++ b/Launcher.st	Tue Aug 27 14:18:31 1996 +0200
@@ -824,7 +824,7 @@
      stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
      stcLibraries stcLibraryPath historyLines sourceMode catchRedefs keepSourceOptions keepSource  
      foldConstants constantFoldingOptions constantFolding justInTimeCompilation
-     warnEnabler check component oldIndent t|
+     warnEnabler check component oldIndent t supportsJustInTimeCompilation|
 
     warnings := Compiler warnings asValue.
 
@@ -846,7 +846,8 @@
                                                 'never'
                                                )).
     stcCompilation selectionIndex:2.
-    ObjectMemory supportsJustInTimeCompilation ifTrue:[
+    (supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation)
+    ifTrue:[
         justInTimeCompilation := ObjectMemory justInTimeCompilation:true.
         ObjectMemory justInTimeCompilation:justInTimeCompilation.
     ] ifFalse:[
@@ -905,13 +906,15 @@
 
     box addHorizontalLine.
 
-    component := box 
-                    addCheckBox:(resources string:'just in time compilation to machine code') 
-                    on:justInTimeCompilation.
-    ObjectMemory supportsJustInTimeCompilation ifFalse:[
-        component disable
+    supportsJustInTimeCompilation ifTrue:[
+        component := box 
+                        addCheckBox:(resources string:'just in time compilation to machine code') 
+                        on:justInTimeCompilation.
+        supportsJustInTimeCompilation ifFalse:[
+            component disable
+        ].
+        box addHorizontalLine.
     ].
-    box addHorizontalLine.
 
     ObjectFileLoader notNil ifTrue:[
         compilationList := box addPopUpList:(resources string:'stc compilation to machine code') on:stcCompilation.
@@ -1045,7 +1048,9 @@
         Compiler stcCompilationDefines:stcDefines value.
         Compiler stcCompilationOptions:stcOptions value.
         Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex).
-        ObjectMemory justInTimeCompilation:justInTimeCompilation value.
+        supportsJustInTimeCompilation ifTrue:[
+            ObjectMemory justInTimeCompilation:justInTimeCompilation value.
+        ].
         ObjectFileLoader notNil ifTrue:[
             stcLibraries notNil ifTrue:[
                 ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
@@ -1058,7 +1063,7 @@
     box destroy
 
     "Modified: 10.9.1995 / 19:19:18 / claus"
-    "Modified: 22.8.1996 / 15:30:11 / cg"
+    "Modified: 27.8.1996 / 14:14:25 / cg"
 !
 
 displaySettings
@@ -3337,5 +3342,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.178 1996-08-24 10:07:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.179 1996-08-27 12:18:31 cg Exp $'
 ! !