--- a/compiler/Dart__Scanner.st	Fri Jan 11 13:41:57 2013 +0000
+++ b/compiler/Dart__Scanner.st	Fri Jan 11 13:43:38 2013 +0000
@@ -1074,6 +1074,23 @@
     value := something.
 ! !
 
+!Scanner::Token methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    aStream nextPut: ${.
+    type printOn:aStream.
+    aStream nextPutAll:' - '.
+    value printOn:aStream.
+    aStream nextPutAll:' <'.
+    startPosition printOn:aStream.
+    aStream nextPutAll:'-'.
+    endPosition printOn:aStream.
+    aStream nextPutAll:' >}'.
+
+    "Modified: / 11-01-2013 / 12:32:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !Scanner class methodsFor:'documentation'!