--- a/ByteArray.st	Fri May 03 22:10:40 1996 +0200
+++ b/ByteArray.st	Fri May 03 22:11:14 1996 +0200
@@ -871,14 +871,14 @@
 
     |v|
 
-    value > 0 ifTrue:[
-	v := value
+    value >= 0 ifTrue:[
+        v := value
     ] ifFalse:[
-	"
-	 stupid: due to an STC bug, cannot currently have LargeInteger
-	 constants - change to code below when fixed ...
-	"
-	v := value + (16r10000000 * 16r10)
+        "
+         stupid: due to an STC bug, cannot currently have LargeInteger
+         constants - change to code below when fixed ...
+        "
+        v := value + (16r10000000 * 16r10)
 "////   v := value + 16r100000000
     ].
     self doubleWordAt:index put:v.
@@ -890,6 +890,8 @@
      b signedDoubleWordAt:1 put:-1.
      (b doubleWordAt:1) printStringRadix:16   
     "
+
+    "Modified: 3.5.1996 / 22:10:45 / cg"
 !
 
 signedDoubleWordAt:index put:value MSB:msb
@@ -2172,5 +2174,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.58 1996-05-03 20:10:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.59 1996-05-03 20:11:14 cg Exp $'
 ! !