diff --git a/ChangeLog b/ChangeLog
index 4472a13431..71bfd6b417 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Fri Oct 31 22:26:29 2003  Takaaki Uematsu  <uema2x@jcom.home.ne.jp>
+
+	* wince/string_wce.c (strrchr): should decrement pointer.
+
+	* wince/Makefile.sub: correct a range of isdigit().
+
 Fri Oct 31 12:55:24 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
 
 	* configure.in, lib/mkmf.rb: add RPATHFLAG for NetBSD.
diff --git a/wince/Makefile.sub b/wince/Makefile.sub
index f77e31cc6f..905c479308 100644
--- a/wince/Makefile.sub
+++ b/wince/Makefile.sub
@@ -313,7 +313,7 @@ $(BANG)endif
 #if _WIN32_WCE < 300
   #define isascii(c) ( (c>=0x00&&c<=0x7f)?1:0 )
   #define isspace(c) ( ((c>=0x09&&c<=0x0d)||c==0x20)?1:0 )
-  #define isdigit(c) ( (c>=0x00&&c<=0x09)?1:0 )
+  #define isdigit(c) ( (c>=0x30&&c<=0x39)?1:0 )
   #define isupper(c) ( (c>='A'&&c<='Z')?1:0 )
   #define isalpha(c) ( ((c>='A'&&c<='Z')||(c>='a'&&c<='z'))?1:0 )
   #define isprint(c) ( (c>=0x20&&c<=0x7e)?1:0 )
diff --git a/wince/string_wce.c b/wince/string_wce.c
index a1ee075077..257eee101d 100644
--- a/wince/string_wce.c
+++ b/wince/string_wce.c
@@ -44,7 +44,7 @@ int strnicmp( const char *s1, const char *s2, size_t count )
 char *strrchr( const char *p, int c )
 {
 	char *pp;
-	for( pp=(char*)p+strlen(p); pp!=p; p-- )
+	for( pp=(char*)p+strlen(p); pp!=p; pp-- )
 	{
 		if( *pp==c ) break;
 	}