--- a/Character.st	Sun Dec 16 19:37:11 2001 +0100
+++ b/Character.st	Mon Dec 17 09:37:32 2001 +0100
@@ -251,6 +251,10 @@
     ^ Character value:10
 !
 
+null
+    ^ Character value:0
+!
+
 quote
     "return the single-quote character"
 
@@ -347,6 +351,20 @@
     ^ self asciiValue
 ! !
 
+!Character methodsFor:'Compatibility - Dolphin'!
+
+isControl
+    ^ self asciiValue <= 16r20
+!
+
+isHexDigit
+    ^ '0123456789abcdefABCDEF' includes:self
+!
+
+isPunctuation
+    ^ '.,' includes:self
+! !
+
 !Character methodsFor:'accessing'!
 
 asciiValue
@@ -1205,5 +1223,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.70 2001-10-02 13:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.71 2001-12-17 08:37:32 cg Exp $'
 ! !