--- a/Character.st	Mon Apr 27 06:43:29 2015 +0200
+++ b/Character.st	Tue Apr 28 07:01:27 2015 +0200
@@ -744,7 +744,20 @@
 = aCharacter
     "return true, if the argument, aCharacter is the same character
      Redefined to take care of character sizes > 8bit."
-
+%{
+#ifdef __SCHTEAM__
+    if (self == aCharacter) {
+	return context._RETURN_true();
+    }
+    if (aCharacter.characterP() == STObject.True) {
+	if (self.charValue() == aCharacter.charValue()) {
+	    return context._RETURN_true();
+	} else {
+	    return context._RETURN_false();
+	}
+    }
+#endif /* not SCHTEAM */
+%}.
     self == aCharacter ifTrue:[^ true].
     aCharacter isCharacter ifFalse:[^ false].
     ^ asciivalue = aCharacter codePoint
@@ -2530,7 +2543,7 @@
     codePoint := asciivalue.
 
     codePoint <= 16rFF ifTrue:[                "/ u00xx - unicode latin1 page
-        ^ codePoint between:$0 codePoint and:$9 codePoint.
+	^ codePoint between:$0 codePoint and:$9 codePoint.
     ].
 
     ^ codePoint between:16rFF10 and:16rFF19
@@ -3038,10 +3051,9 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.162 2015-04-22 17:38:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.163 2015-04-27 17:06:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.162 2015-04-22 17:38:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.163 2015-04-27 17:06:26 cg Exp $'
 ! !
-