--- a/IRPrinter.st	Mon Dec 01 19:01:08 2008 +0000
+++ b/IRPrinter.st	Tue Dec 02 08:14:54 2008 +0000
@@ -65,6 +65,14 @@
 	stream cr.
 !
 
+line: line
+
+    stream nextPutAll: 'line: '.
+    line printOn: stream
+
+    "Created: / 02-12-2008 / 09:00:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 popTop
 
 	stream nextPutAll: 'popTop'