--- a/UIBytes.st	Fri May 15 17:23:50 1998 +0200
+++ b/UIBytes.st	Fri May 15 17:26:45 1998 +0200
@@ -337,7 +337,7 @@
     |flt|
 
     msb == UninterpretedBytes isBigEndian ifTrue:[
-        ^ self doubleAt:index.
+        ^ self doubleAt:index put:aFloat.
     ].
 
     flt := aFloat asFloat.
@@ -347,6 +347,7 @@
     ^ aFloat
 
     "Created: / 15.5.1998 / 17:22:27 / cg"
+    "Modified: / 15.5.1998 / 17:26:29 / cg"
 !
 
 doubleWordAt:index
@@ -1943,6 +1944,6 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.28 1998-05-15 15:23:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.29 1998-05-15 15:26:45 cg Exp $'
 ! !
 UninterpretedBytes initialize!

--- a/UninterpretedBytes.st	Fri May 15 17:23:50 1998 +0200
+++ b/UninterpretedBytes.st	Fri May 15 17:26:45 1998 +0200
@@ -337,7 +337,7 @@
     |flt|
 
     msb == UninterpretedBytes isBigEndian ifTrue:[
-        ^ self doubleAt:index.
+        ^ self doubleAt:index put:aFloat.
     ].
 
     flt := aFloat asFloat.
@@ -347,6 +347,7 @@
     ^ aFloat
 
     "Created: / 15.5.1998 / 17:22:27 / cg"
+    "Modified: / 15.5.1998 / 17:26:29 / cg"
 !
 
 doubleWordAt:index
@@ -1943,6 +1944,6 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.28 1998-05-15 15:23:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.29 1998-05-15 15:26:45 cg Exp $'
 ! !
 UninterpretedBytes initialize!