diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 90bdcd9d12..f974810c3f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-22 11:10 UTC-0400 David G. Holm <dholm@jsd-llc.com>
+
+  * source/vm/classes.c
+    ! The file <ctype.h> must be included for the toupper() prototype.
+
 2001-06-22 07:55 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * contrib/dot/pp.prg
      + Added logic for new Idenitifier Match Marker <!AnyId!> which will only match Identifiers.
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 0eb40d6f7d..7e6f4cf360 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -172,9 +172,9 @@
 #include "hbvm.h"
 #include "hboo.ch"
 
+#include <ctype.h>             /* For toupper() */
 
 /* DEBUG only*/
-/*#include <ctype.h>*/
 /*#include <windows.h>*/
 
 typedef struct