--- a/Character.st	Fri Jun 13 20:50:22 2003 +0200
+++ b/Character.st	Fri Jun 13 20:52:21 2003 +0200
@@ -499,7 +499,13 @@
 !
 
 isHexDigit
+    "return true if I am a valid hexadecimal digit"
+
     ^ '0123456789abcdefABCDEF' includes:self
+
+    "
+     $a isHexDigit
+    "
 !
 
 isPunctuation
@@ -1410,5 +1416,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.86 2003-06-13 18:50:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.87 2003-06-13 18:52:21 cg Exp $'
 ! !