Index: /ccr/trunk/p/C0CUTIL.m
===================================================================
--- /ccr/trunk/p/C0CUTIL.m	(revision 770)
+++ /ccr/trunk/p/C0CUTIL.m	(revision 771)
@@ -22,5 +22,11 @@
  Q
  ;
-UUID() ; GENERATE A RANDOM UUID (Version 4)
+UUID()  ; thanks to Wally for this.
+        N R,I,J,N 
+        S N="",R="" F  S N=N_$R(100000) Q:$L(N)>64 
+        F I=1:2:64 S R=R_$E("0123456789abcdef",($E(N,I,I+1)#16+1)) 
+        Q $E(R,1,8)_"-"_$E(R,9,12)_"-4"_$E(R,14,16)_"-"_$E("89ab",$E(N,17)#4+1)_$E(R,18,20)_"-"_$E(R,21,32)
+	;
+OLDUUID() ; GENERATE A RANDOM UUID (Version 4)
  N I,J,ZS
  S ZS="0123456789abcdef" S J=""