--- a/ImageReader.st	Wed Aug 05 11:24:23 2009 +0200
+++ b/ImageReader.st	Wed Aug 05 14:03:31 2009 +0200
@@ -1782,6 +1782,12 @@
     ^ val
 !
 
+readUnsignedLong
+    "return the next 4-byte long, honoring the byte-order"
+
+    ^ inStream nextUnsignedLongMSB:(byteOrder ~~ #lsb)
+!
+
 writeLong:anInteger
     "write a 4-byte long, honoring the byte-order."
 
@@ -1921,5 +1927,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.94 2008-12-02 21:03:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.95 2009-08-05 12:03:31 cg Exp $'
 ! !