--- a/Character.st	Wed Jan 16 15:09:53 2013 +0100
+++ b/Character.st	Wed Jan 16 15:10:58 2013 +0100
@@ -754,6 +754,10 @@
 
     self == aCharacter ifTrue:[^ true].
     ^ self asLowercase = aCharacter asLowercase
+
+    "
+      (Character value:345) sameAs:(Character value:345)
+    "
 !
 
 ~= aCharacter
@@ -2806,9 +2810,10 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.143 2012-04-24 12:03:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.144 2013-01-16 14:10:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.143 2012-04-24 12:03:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.144 2013-01-16 14:10:58 stefan Exp $'
 ! !
+