--- a/Class.st	Sat Apr 20 11:38:08 1996 +0200
+++ b/Class.st	Sat Apr 20 12:35:30 1996 +0200
@@ -1540,12 +1540,34 @@
      The method is classified under category.
      Returns the new method or nil (on failure)."
 
-    ^ self compilerClass 
-	compile:code 
-	forClass:self 
-	inCategory:category
+    ^ self compile:code classified:category logged:true
+
+    "Modified: 20.4.1996 / 12:30:51 / cg"
+!
+
+compile:code classified:category logged:logged
+    "compile code, aString for this class; 
+     if successful update the method dictionary. 
+     The method is classified under category.
+     If logged is true, a changeRecord is written.
+     Returns the new method or nil (on failure)."
+
+    logged ifFalse:[
+        self withoutUpdatingChangesDo:[
+            ^ self compilerClass 
+                compile:code 
+                forClass:self 
+                inCategory:category
+        ]
+    ] ifTrue:[
+        ^ self compilerClass 
+            compile:code 
+            forClass:self 
+            inCategory:category
+    ].
 
     "Modified: 13.12.1995 / 11:02:34 / cg"
+    "Created: 20.4.1996 / 12:30:35 / cg"
 !
 
 compile:code notifying:requestor
@@ -3926,6 +3948,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.150 1996-04-16 18:08:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.151 1996-04-20 10:35:30 cg Exp $'
 ! !
 Class initialize!