--- a/UninterpretedBytes.st	Tue Feb 21 21:25:45 2006 +0100
+++ b/UninterpretedBytes.st	Tue Feb 21 22:56:59 2006 +0100
@@ -311,6 +311,43 @@
     "Modified: / 5.3.1998 / 14:56:22 / stefan"
 ! !
 
+!UninterpretedBytes methodsFor:'Compatibility-V''Age'!
+
+uint32At:zeroBasedIndex
+    "return the 4-bytes starting at index as (unsigned) Integer.
+     The index is a C index (i.e. 0-based).
+     The value is retrieved in the machines natural byte order.
+     Similar to unsignedLongAt:, except for the index base"
+
+    ^ self unsignedLongAt:zeroBasedIndex+1
+
+    "
+     |b|
+
+     b := ByteArray withAll:#(0 0 0 0).
+     b uint32At:0 put:16r12345678.
+     b uint32At:0.
+     b
+    "
+!
+
+uint32At:zeroBasedIndex put:anInteger
+    "set the 4-bytes starting at index to the value given by (unsigned) Integer.
+     The index is a C index (i.e. 0-based).
+     The value is stored in the machines natural byte order.
+     Similar to unsignedLongAt:put:, except for the index base"
+
+    ^ self unsignedLongAt:zeroBasedIndex+1 put:anInteger
+
+    "
+     |b|
+
+     b := ByteArray withAll:#(0 0 0 0).
+     b uint32At:0 put:16r12345678.
+     b
+    "
+! !
+
 !UninterpretedBytes methodsFor:'accessing-bytes'!
 
 bcdByteAt:index
@@ -2371,5 +2408,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.60 2005-11-30 22:06:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.61 2006-02-21 21:56:59 cg Exp $'
 ! !