--- a/ObjectMemory.st	Wed Aug 04 22:18:39 1999 +0200
+++ b/ObjectMemory.st	Thu Aug 05 11:39:14 1999 +0200
@@ -2574,7 +2574,11 @@
      of code was dynamically generated. 
      The default is nil; which disables this trigger"
 
-    DynamicCodeGCTrigger := numberOfBytesOrNil
+    (numberOfBytesOrNil notNil and:[numberOfBytesOrNil > 0]) ifTrue:[
+        DynamicCodeGCTrigger := numberOfBytesOrNil.
+    ] ifFalse:[
+        DynamicCodeGCTrigger := nil
+    ]
 
     "
      ObjectMemory dynamicCodeGCTrigger:50000
@@ -2607,8 +2611,8 @@
      if (after the GC), more code is still allocated. 
      The default is nil; which disables this trigger"
 
-    DynamicCodeLimit := nBytesOrNil.
     self setCompiledCodeLimit:nBytesOrNil.
+    DynamicCodeLimit := self getCompiledCodeLimit.
 
     "
      ObjectMemory dynamicCodeLimit:100000
@@ -5010,6 +5014,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.178 1999-05-14 10:26:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.179 1999-08-05 09:39:14 cg Exp $'
 ! !
 ObjectMemory initialize!