--- a/Behavior.st	Tue Sep 03 14:53:22 2013 +0200
+++ b/Behavior.st	Tue Sep 03 18:58:13 2013 +0200
@@ -1230,6 +1230,7 @@
 ! !
 
 
+
 !Behavior methodsFor:'accessing'!
 
 addSelector:newSelector withMethod:newMethod
@@ -4336,18 +4337,19 @@
 
 canUnderstand:aSelector
     "return true, if the receiver or one of its superclasses implements aSelector.
-     (i.e. true if my instances understand aSelector)"
+     (i.e. true if my instances understand aSelector).
+     I think this is a bad name, but well, we are compatible."
 
     |l|
 
     "JV @ 2010-08-22: Rewritten to respect lookup object."
     (l := self lookupObject) notNil ifTrue:[
-	^ (l
-	    lookupMethodForSelector:aSelector
-	    directedTo:self
-	    for: nil "Fake receiver"
-		withArguments: nil "Fake arguments"
-		from: thisContext methodHome sender) notNil
+        ^ (l
+            lookupMethodForSelector:aSelector
+            directedTo:self
+            for: nil "Fake receiver"
+                withArguments: nil "Fake arguments"
+                from: thisContext methodHome sender) notNil
     ].
 
     "Original implementation"
@@ -4979,10 +4981,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.346 2013-08-22 08:42:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.347 2013-09-03 16:58:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.346 2013-08-22 08:42:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.347 2013-09-03 16:58:13 cg Exp $'
 ! !