--- a/Switch.st	Sat May 26 11:36:50 2012 +0200
+++ b/Switch.st	Tue May 29 19:07:49 2012 +0200
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libcomp' }"
 
 Object subclass:#Switch
 	instanceVariableNames:'expressions values default'
@@ -35,6 +36,8 @@
 
 documentation
     "
+     Obsolete: has been replaced by the caseOf: protocol found in Object.
+
      This class provides a switch-expression facility.
      Consider this a demo example, nested if's are much more
      efficient. However, support for inline switches may be added
@@ -96,5 +99,5 @@
 !Switch class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Switch.st,v 1.6 1996-11-11 21:54:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Switch.st,v 1.7 2012-05-29 17:07:49 cg Exp $'
 ! !