--- a/Behavior.st	Mon Apr 25 14:28:06 2005 +0200
+++ b/Behavior.st	Mon Apr 25 15:43:11 2005 +0200
@@ -992,10 +992,10 @@
 
     (newSelector isMemberOf:Symbol) ifFalse:[
         self error:'invalid selector'. 
-        ^ false
     ].
+
     oldMethod := self compiledMethodAt:newSelector.
-    (self primAddSelector:newSelector withMethod:newMethod) ifFalse:[^ false].
+    self primAddSelector:newSelector withMethod:newMethod.
 
     "
      if I have no subclasses, all we have to flush is cached
@@ -1039,8 +1039,6 @@
     "/
     Smalltalk changed:#methodInClass with:(Array with:self with:newSelector with:oldMethod).
 
-    ^ true
-
     "Created: 11.12.1995 / 13:59:37 / cg"
     "Modified: 8.1.1997 / 22:43:13 / cg"
 !
@@ -2726,13 +2724,11 @@
 
     newMethod isNil ifTrue:[
         self error:'invalid method'. 
-        ^ false
     ].
 
     dict := self methodDictionary.
     self setMethodDictionary:(dict at:newSelector putOrAppend:newMethod).
     newMethod mclass:self.
-    ^ true.
 
     "Modified: 7.6.1996 / 14:48:45 / stefan"
 !
@@ -4401,5 +4397,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.244 2005-04-20 09:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.245 2005-04-25 13:43:11 stefan Exp $'
 ! !