--- a/CRC32Stream.st	Sat Mar 16 23:28:37 2019 +0100
+++ b/CRC32Stream.st	Sat Mar 16 23:30:01 2019 +0100
@@ -196,9 +196,20 @@
         x^32+x^26+x^23+x^22+x^16+x^12+x^11+x^10+x^8+x^7+x^5+x^4+x^2+x+1"
 
     "/ 16r4C11DB7 bitReversed32 -> 16rEDB88320
+    ^ self newCCITT
+
+    "Created: / 16-03-2019 / 21:09:19 / Claus Gittinger"
+    "Modified: / 16-03-2019 / 23:29:45 / Claus Gittinger"
+!
+
+newCCITT
+    "return an instance of the ITU-T CRC-32
+        x^32+x^26+x^23+x^22+x^16+x^12+x^11+x^10+x^8+x^7+x^5+x^4+x^2+x+1"
+
+    "/ 16r4C11DB7 bitReversed32 -> 16rEDB88320
     ^ self generatorPolynom:16rEDB88320 initValue:16rFFFFFFFF xorOut:16rFFFFFFFF
 
-    "Created: / 16-03-2019 / 21:09:19 / Claus Gittinger"
+    "Created: / 16-03-2019 / 23:29:39 / Claus Gittinger"
 !
 
 newCrc32c