Index: modules/uuid/pkgIndex.tcl
==================================================================
--- modules/uuid/pkgIndex.tcl
+++ modules/uuid/pkgIndex.tcl
@@ -3,6 +3,6 @@
 # uuid package index file
 #
 # $Id: pkgIndex.tcl,v 1.3 2012/11/19 19:28:24 andreas_kupries Exp $
 
 if {![package vsatisfies [package provide Tcl] 8.2]} {return}
-package ifneeded uuid 1.0.2 [list source [file join $dir uuid.tcl]]
+package ifneeded uuid 1.0.3 [list source [file join $dir uuid.tcl]]

Index: modules/uuid/uuid.man
==================================================================
--- modules/uuid/uuid.man
+++ modules/uuid/uuid.man
@@ -1,14 +1,15 @@
-[manpage_begin uuid n 1.0.2]
+[vset UUID_VERSION 1.0.3]
+[manpage_begin uuid n [vset UUID_VERSION]]
 [keywords GUID]
 [keywords UUID]
 [moddesc {uuid}]
 [copyright {2004, Pat Thoyts <patthoyts@users.sourceforge.net>}]
 [titledesc {UUID generation and comparison}]
 [category  {Hashes, checksums, and encryption}]
 [require Tcl 8.2]
-[require uuid [opt 1.0.2]]
+[require uuid [opt [vset UUID_VERSION]]]
 [description]
 [para]
 
 This package provides a generator of universally unique identifiers
 (UUID) also known as globally unique identifiers (GUID). This

Index: modules/uuid/uuid.tcl
==================================================================
--- modules/uuid/uuid.tcl
+++ modules/uuid/uuid.tcl
@@ -10,11 +10,11 @@
 #
 # Usage: uuid::uuid generate
 #        uuid::uuid equal $idA $idB
 
 namespace eval uuid {
-    variable version 1.0.2
+    variable version 1.0.3
     variable accel
     array set accel {critcl 0}
 
     namespace export uuid
 
@@ -83,11 +83,11 @@
     }
     set r [md5::MD5Final $tok]
     binary scan $r c* r
     
     # 3.4: set uuid versioning fields
-    lset r 8 [expr {([lindex $r 8] & 0x7F) | 0x40}]
+    lset r 8 [expr {([lindex $r 8] & 0x3F) | 0x80}]
     lset r 6 [expr {([lindex $r 6] & 0x0F) | 0x40}]
     
     return [binary format c* $r]
 }