--- a/UUID.st	Mon Jul 11 14:58:25 2016 +0200
+++ b/UUID.st	Tue Jul 12 23:30:24 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -822,37 +824,26 @@
 !
 
 printOn:aStream
-    |d tmpStream|
-
-    tmpStream := '' writeStream.
-
     1 to:4 do:[:idx|
-        d := self at:idx.
-        d printOn:tmpStream base:16 size:2 fill:$0.
+        (self basicAt:idx) printOn:aStream base:-16 size:2 fill:$0.
     ].
-    tmpStream nextPut:$-.
+    aStream nextPut:$-.
     5 to:6 do:[:idx|
-        d := self at:idx.
-        d printOn:tmpStream base:16 size:2 fill:$0.
+        (self basicAt:idx) printOn:aStream base:-16 size:2 fill:$0.
     ].
-    tmpStream nextPut:$-.
+    aStream nextPut:$-.
     7 to:8 do:[:idx|
-        d := self at:idx.
-        d printOn:tmpStream base:16 size:2 fill:$0.
-    ].
-    tmpStream nextPut:$-.
-    9 to:10 do:[:idx|
-        d := self at:idx.
-        d printOn:tmpStream base:16 size:2 fill:$0.
+        (self basicAt:idx) printOn:aStream base:-16 size:2 fill:$0.
     ].
-    tmpStream nextPut:$-.
+    aStream nextPut:$-.
+    9 to:10 do:[:idx|
+        (self basicAt:idx) printOn:aStream base:-16 size:2 fill:$0.
+    ].
+    aStream nextPut:$-.
     11 to:16 do:[:idx|
-        d := self at:idx.
-        d printOn:tmpStream base:16 size:2 fill:$0.
+        (self basicAt:idx) printOn:aStream base:-16 size:2 fill:$0.
     ].
 
-    aStream nextPutAll:(tmpStream contents asLowercase).
-
     "
      UUID genUUID printString 
      UUID genUUID asString