--- a/Behavior.st	Sun Jan 26 15:14:14 2003 +0100
+++ b/Behavior.st	Sun Jan 26 15:15:53 2003 +0100
@@ -963,6 +963,10 @@
 
     ^ self theNonMetaclass
 
+!
+
+shortName
+    ^ self nameWithoutPrefix
 ! !
 
 
@@ -4433,5 +4437,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.217 2002-12-10 11:00:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.218 2003-01-26 14:15:53 cg Exp $'
 ! !