--- a/Behavior.st	Sun Jun 09 00:49:37 2013 +0100
+++ b/Behavior.st	Mon Jun 10 17:32:35 2013 +0100
@@ -1614,6 +1614,30 @@
     "Created: 1.4.1997 / 23:43:51 / stefan"
 !
 
+compile:code categorized:methodCategory
+    "compile code, aString for this class;
+     if successful update the method dictionary.
+     Returns the new method or nil (on failure)."
+
+    ^ self compilerClass
+        compile:code
+        forClass:self
+        inCategory:methodCategory
+        notifying:nil
+!
+
+compile:code categorized:methodCategory notifying:requestor
+    "compile code, aString for this class;
+     if successful update the method dictionary.
+     Returns the new method or nil (on failure)."
+
+    ^ self compilerClass
+        compile:code
+        forClass:self
+        inCategory:methodCategory
+        notifying:requestor
+!
+
 compile:code notifying:requestor
     "compile code, aString for this class; on any error, notify
      requestor, anObject with the error reason.
@@ -4982,10 +5006,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.343 2013-05-21 20:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.344 2013-06-03 10:38:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.343 2013-05-21 20:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.344 2013-06-03 10:38:12 cg Exp $'
 ! !