--- a/UUID.st	Thu Aug 02 19:33:33 2012 +0200
+++ b/UUID.st	Fri Aug 03 20:59:12 2012 +0200
@@ -776,20 +776,24 @@
     "
 ! !
 
-!UUID methodsFor:'queries'!
+!UUID methodsFor:'testing'!
 
 isTimestampUUID
     ^ self version == 1
+!
+
+isUUID
+    ^ true
 ! !
 
 !UUID class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.39 2012-04-24 18:08:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.40 2012-08-03 18:59:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.39 2012-04-24 18:08:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.40 2012-08-03 18:59:12 stefan Exp $'
 ! !
 
 UUID initialize!