--- a/ObjMem.st	Fri Nov 08 23:07:17 1996 +0100
+++ b/ObjMem.st	Fri Nov 08 23:32:18 1996 +0100
@@ -2664,8 +2664,22 @@
 %}
 !
 
+justInTimeCompilation
+    "return the value of the just-in-time-compilation flag"
+
+%{  /* NOCONTEXT */
+    extern int __justInTimeCompilation();
+
+    RETURN (__justInTimeCompilation(-1) ? true : false);
+%}
+    "
+     ObjectMemory justInTimeCompilation
+    "
+
+!
+
 justInTimeCompilation:aBoolean
-    "enable/disable just-in-time-compilation. Returns the previous setting."
+    "enable/disable just-in-time-compilation."
 
     aBoolean notNil ifTrue:[
         JustInTimeCompilationEnabled := aBoolean.
@@ -2685,7 +2699,6 @@
     "
      ObjectMemory justInTimeCompilation:true
      ObjectMemory justInTimeCompilation:false
-     ObjectMemory justInTimeCompilation:nil
     "
 
 !
@@ -3854,6 +3867,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.122 1996-11-08 18:39:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.123 1996-11-08 22:32:18 cg Exp $'
 ! !
 ObjectMemory initialize!

--- a/ObjectMemory.st	Fri Nov 08 23:07:17 1996 +0100
+++ b/ObjectMemory.st	Fri Nov 08 23:32:18 1996 +0100
@@ -2664,8 +2664,22 @@
 %}
 !
 
+justInTimeCompilation
+    "return the value of the just-in-time-compilation flag"
+
+%{  /* NOCONTEXT */
+    extern int __justInTimeCompilation();
+
+    RETURN (__justInTimeCompilation(-1) ? true : false);
+%}
+    "
+     ObjectMemory justInTimeCompilation
+    "
+
+!
+
 justInTimeCompilation:aBoolean
-    "enable/disable just-in-time-compilation. Returns the previous setting."
+    "enable/disable just-in-time-compilation."
 
     aBoolean notNil ifTrue:[
         JustInTimeCompilationEnabled := aBoolean.
@@ -2685,7 +2699,6 @@
     "
      ObjectMemory justInTimeCompilation:true
      ObjectMemory justInTimeCompilation:false
-     ObjectMemory justInTimeCompilation:nil
     "
 
 !
@@ -3854,6 +3867,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.122 1996-11-08 18:39:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.123 1996-11-08 22:32:18 cg Exp $'
 ! !
 ObjectMemory initialize!