--- a/DoWhatIMeanSupport.st Mon Sep 23 11:47:52 2013 +0200
+++ b/DoWhatIMeanSupport.st Mon Sep 23 14:41:55 2013 +0200
@@ -1791,9 +1791,9 @@
^ Number
].
- ( #( class theMetaclass theNonMetaClass ) includes:nodeSelector) ifTrue:[
+ ( #( class theMetaclass theNonMetaclass ) includes:nodeSelector) ifTrue:[
"/ assume behavior
- ^ Class
+ ^ Behavior
].
].
^ nil
@@ -4342,10 +4342,10 @@
!DoWhatIMeanSupport class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.167 2013-09-23 12:41:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.166 2013-09-23 09:47:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.167 2013-09-23 12:41:55 cg Exp $'
! !