--- a/ProgrammingLanguage.st	Wed Jun 16 21:12:05 2010 +0100
+++ b/ProgrammingLanguage.st	Sat Jun 19 10:47:47 2010 +0100
@@ -304,6 +304,15 @@
 
 !ProgrammingLanguage methodsFor:'printing & storing'!
 
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    self class printOn: aStream.
+    aStream nextPutAll: ' instance'
+
+    "Modified: / 19-06-2010 / 09:54:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 storeOn:aStream
 
     self class == ProgrammingLanguage 
@@ -396,7 +405,7 @@
 !ProgrammingLanguage class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ProgrammingLanguage.st 10527 2010-06-16 20:12:05Z vranyj1 $'
+    ^ '$Id: ProgrammingLanguage.st 10528 2010-06-19 09:47:47Z vranyj1 $'
 !
 
 version_CVS
@@ -404,8 +413,7 @@
 !
 
 version_SVN
-    ^ '$Id: ProgrammingLanguage.st 10527 2010-06-16 20:12:05Z vranyj1 $'
+    ^ '$Id: ProgrammingLanguage.st 10528 2010-06-19 09:47:47Z vranyj1 $'
 ! !
 
 ProgrammingLanguage initialize!
-