--- a/HPLjetIIPrinterStream.st Mon Aug 26 23:51:16 2019 +0200
+++ b/HPLjetIIPrinterStream.st Mon Aug 26 23:51:25 2019 +0200
@@ -99,6 +99,9 @@
!
nextPut:aCharacter
+ "print aCharacter.
+ Answer the argument."
+
stream nextPut:aCharacter.
^ aCharacter
! !