--- a/HierarchicalItemWithLabel.st	Sat Jan 23 04:57:47 2016 +0000
+++ b/HierarchicalItemWithLabel.st	Sun Jan 24 22:10:14 2016 +0100
@@ -36,6 +36,12 @@
 "
 ! !
 
+!HierarchicalItemWithLabel class methodsFor:'instance creation'!
+
+label:aLabel
+    ^ self new label:aLabel
+! !
+
 !HierarchicalItemWithLabel methodsFor:'accessing'!
 
 label
@@ -56,6 +62,6 @@
 !HierarchicalItemWithLabel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItemWithLabel.st,v 1.3 2015-01-29 17:55:03 cg Exp $'
+    ^ '$Header$'
 ! !