--- a/Class.st	Tue Dec 12 23:14:53 1995 +0100
+++ b/Class.st	Wed Dec 13 11:23:44 1995 +0100
@@ -1698,32 +1698,41 @@
 
 compile:code
     "compile code, aString for this class; 
-     if successful update the method dictionary."
-
-    self compilerClass 
-	compile:code 
-	forClass:self
+     if successful update the method dictionary.
+     Returns the new method or nil (on failure)."
+
+    ^ self compilerClass 
+        compile:code 
+        forClass:self
+
+    "Modified: 13.12.1995 / 10:56:00 / cg"
 !
 
 compile:code classified:category
     "compile code, aString for this class; 
      if successful update the method dictionary. 
-     The method is classified under category."
-
-    self compilerClass 
-	compile:code 
-	forClass:self 
-	inCategory:category
+     The method is classified under category.
+     Returns the new method or nil (on failure)."
+
+    ^ self compilerClass 
+        compile:code 
+        forClass:self 
+        inCategory:category
+
+    "Modified: 13.12.1995 / 11:02:34 / cg"
 !
 
 compile:code notifying:requestor
     "compile code, aString for this class; on any error, notify
-     requestor, anObject with the error reason."
-
-    self compilerClass 
-	compile:code 
-	forClass:self 
-	notifying:requestor
+     requestor, anObject with the error reason.
+     Returns the new method or nil (on failure)."
+
+    ^ self compilerClass 
+        compile:code 
+        forClass:self 
+        notifying:requestor
+
+    "Modified: 13.12.1995 / 11:02:40 / cg"
 !
 
 recompile
@@ -3374,6 +3383,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.108 1995-12-12 22:14:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.109 1995-12-13 10:23:44 cg Exp $'
 ! !
 Class initialize!