diff --git generic/tclBinary.c generic/tclBinary.c
index 5d317faa..77252be2 100644
--- generic/tclBinary.c
+++ generic/tclBinary.c
@@ -2056,13 +2056,6 @@ ScanNumber(
 
     switch (type) {
     case 'c':
-	/*
-	 * Characters need special handling. We want to produce a signed
-	 * result, but on some platforms (such as AIX) chars are unsigned. To
-	 * deal with this, check for a value that should be negative but
-	 * isn't.
-	 */
-
 	value = buffer[0];
 	if (!(flags & BINARY_UNSIGNED)) {
 	    if (value & 0x80) {
