HPLjetIIPrinterStream.st
changeset 5180 16ac3698390f
parent 5175 75c026242bf0
--- 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
 ! !