# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1071840680 -3600
# Node ID 3cc0b75d1684494fbf7eb9d2ffc3925beebd15b3
# Parent  d28a83264959385f9739dfc8d98320d6ca7a408b
*** empty log message ***

diff -r d28a83264959 -r 3cc0b75d1684 UninterpretedBytes.st
--- a/UninterpretedBytes.st	Thu Dec 18 18:15:52 2003 +0100
+++ b/UninterpretedBytes.st	Fri Dec 19 14:31:20 2003 +0100
@@ -687,10 +687,13 @@
      The index is a smalltalk index (i.e. 1-based).
      Same as #signedQuadWordAt:put: - for ST80 compatibility."
 
-    ^ self signedQuadWordAt:byteIndex put:anInteger
+    |v|
 
-    "Modified: / 3.4.1998 / 13:33:14 / cg"
-    "Created: / 3.4.1998 / 13:34:22 / cg"
+    v := anInteger.
+    anInteger < 0 ifTrue:[
+        v := v + 16r10000000000000000
+    ].
+    ^ self unsignedLongLongAt:byteIndex put:v
 !
 
 longLongAt:byteIndex put:anInteger bigEndian:msb
@@ -2175,5 +2178,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.47 2003-12-18 17:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.48 2003-12-19 13:31:20 cg Exp $'
 ! !