--- a/Behavior.st	Mon Mar 06 20:23:31 1995 +0100
+++ b/Behavior.st	Mon Mar 06 21:59:19 1995 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.29 1995-03-06 19:15:00 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.30 1995-03-06 20:58:51 claus Exp $
 '!
 
 !Behavior class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.29 1995-03-06 19:15:00 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.30 1995-03-06 20:58:51 claus Exp $
 "
 !
 
@@ -1690,6 +1690,12 @@
     ^ selectorArray identityIndexOf:aSelector startingAt:1
 !
 
+includesSelector:aSelector
+    "for ST-80 compatibility"
+
+    ^ self implements:aSelector
+!
+
 compiledMethodAt:aSelector
     "return the method for given selector aSelector or nil.
      Only methods in the receiver - not in the superclass chain are tested."

--- a/Class.st	Mon Mar 06 20:23:31 1995 +0100
+++ b/Class.st	Mon Mar 06 21:59:19 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.35 1995-03-06 19:15:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.36 1995-03-06 20:59:19 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.35 1995-03-06 19:15:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.36 1995-03-06 20:59:19 claus Exp $
 "
 !
 
@@ -1427,6 +1427,14 @@
     ^ (self methodsFor:aCategory) protectedProtocol
 !
 
+methodsForUndefined:categoryString
+    "ST-80 compatibility.
+     I dont yet know what this does - it was encountered by some tester.
+     For now, simply forward it."
+
+    ^ self methodsFor:categoryString
+!
+
 ignoredMethodsFor:aCategory
     "this is a speciality of ST/X - it allows quick commenting of methods
      from a source-file by replacing the 'methodsFor:' by 'ignoredMethodsFor'.