--- a/RegressionTests__UninterpretedBytesTest.st	Sun Mar 13 01:57:44 2016 +0100
+++ b/RegressionTests__UninterpretedBytesTest.st	Sun Mar 13 02:07:03 2016 +0100
@@ -83,7 +83,6 @@
     self assert:(bytes signedInt16At:3 MSB:true)  = 16r3040.
     self assert:(bytes signedInt16At:3 MSB:false) = 16r4030.
 
-
     bytes := #[ 16rFF 16r7F 16r80 16r81 ].
 
     self assert:(bytes unsignedInt16At:1 MSB:true)  = 16rFF7F.
@@ -262,6 +261,28 @@
     "
      self run:#test10_floatAccess
     "
+!
+
+test90_backwardCompatibility
+    "/ backward compatibility stuff
+    self assert:(#[ 16r10 16r20 ] wordAt:1 MSB:true)  = 16r1020.
+    self assert:(#[ 16r10 16r20 ] wordAt:1 MSB:false) = 16r2010.
+    self assert:(#[ 16r80 16r20 ] wordAt:1 MSB:true)  = 16r8020.
+    self assert:(#[ 16r80 16r20 ] wordAt:1 MSB:false) = 16r2080.
+
+    self assert:(#[ 16r10 16r20 ] signedWordAt:1 MSB:true)  = 16r1020.
+    self assert:(#[ 16r10 16r20 ] signedWordAt:1 MSB:false) = 16r2010.
+    self assert:(#[ 16r80 16r20 ] signedWordAt:1 MSB:true)  = -32736. "/ 16r8020 signExtendedShortValue.
+    self assert:(#[ 16r80 16r20 ] signedWordAt:1 MSB:false) = 16r2080.
+
+    self assert:(#[ 16r10 16r20 16r30 16r40 ] longAt:1 bigEndian:true)  = 16r10203040.
+    self assert:(#[ 16r10 16r20 16r30 16r40 ] longAt:1 bigEndian:false) = 16r40302010.
+    self assert:(#[ 16r80 16r20 16r30 16r40 ] longAt:1 bigEndian:true)  = -2145374144. "/ 16r80203040 signExtendedLongValue.
+    self assert:(#[ 16r80 16r20 16r30 16r40 ] longAt:1 bigEndian:false) = 16r40302080.
+
+    "
+     self run:#test90_backwardCompatibility
+    "
 ! !
 
 !UninterpretedBytesTest class methodsFor:'documentation'!