Thanks. The following methods work, can they be improved/simplified?
double " returns a double " | n a b | a := self uint32. b := self uint32. n := Float new: 2. n at: 1 put: b. n at: 2 put: a. ^n float " returns a float " ^Float fromIEEE32Bit: self uint32.
uint32 " Answer the next unsigned, 32-bit integer from this little endian (binary) stream " ^ aFileStream nextLittleEndianNumber: 4