--- a/TwoByteString.st	Tue Apr 24 16:56:08 2012 +0200
+++ b/TwoByteString.st	Tue Apr 24 16:56:26 2012 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 CharacterArray variableWordSubclass:#TwoByteString
@@ -96,6 +95,12 @@
     ^ aCharacter
 
     "Modified: 19.4.1996 / 11:16:22 / cg"
+!
+
+unsignedShortAt:index
+    "return the short at position index, an Integer"
+
+    ^ super basicAt:index.
 ! !
 
 !TwoByteString methodsFor:'queries'!
@@ -112,7 +117,7 @@
 !TwoByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.32 2006-12-06 14:12:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.33 2012-04-24 14:56:26 stefan Exp $'
 ! !
 
 TwoByteString initialize!