--- a/SmallInteger.st	Tue Oct 10 16:04:23 2017 +0200
+++ b/SmallInteger.st	Tue Oct 10 16:04:33 2017 +0200
@@ -1000,7 +1000,6 @@
 ! !
 
 
-
 !SmallInteger methodsFor:'bit operators'!
 
 bitAnd:anInteger
@@ -4602,9 +4601,13 @@
 !
 
 printOn:aStream
-    "append my printstring (base 10) to aStream."
+    "append my printstring (base 10) to aStream.
+
+     I use #printString instead of #printOn: as basic print mechanism."
 
     aStream nextPutAll:(self printString)
+
+    "Modified (comment): / 10-10-2017 / 14:09:00 / cg"
 !
 
 printOn:aStream base:base showRadix:showRadix