--- a/SmallSense__PO.st	Fri May 02 10:07:13 2014 +0100
+++ b/SmallSense__PO.st	Fri May 02 12:29:52 2014 +0100
@@ -213,10 +213,10 @@
 
     super printOn:aStream.
     aStream nextPut:$(.
-    name printOn:aStream.
+    self label printOn:aStream.
     aStream nextPut:$).
 
-    "Modified: / 04-04-2011 / 12:02:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-05-2014 / 12:08:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PO methodsFor:'queries'!