--- a/DoItChange.st	Wed Jun 18 17:41:21 2003 +0200
+++ b/DoItChange.st	Wed Jun 18 17:43:38 2003 +0200
@@ -65,6 +65,13 @@
 
 ! !
 
+!DoItChange methodsFor:'printing & storing'!
+
+printIn:aStream
+    aStream nextPutAll:'DoIt: '.
+    aStream nextPutAll:source.
+! !
+
 !DoItChange methodsFor:'queries'!
 
 isDoIt
@@ -84,5 +91,5 @@
 !DoItChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.8 2002-07-17 13:54:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.9 2003-06-18 15:43:38 cg Exp $'
 ! !