--- a/ExternalLong.st	Wed Jan 28 17:22:14 1998 +0100
+++ b/ExternalLong.st	Wed Jan 28 17:22:27 1998 +0100
@@ -30,7 +30,7 @@
 
     |result|
 
-    result := self wordAt:1 MSB:false.
+    result := self byteAt:1.
     result = 0 ifTrue:[
         ^ false.
     ].
@@ -41,7 +41,7 @@
 !
 
 asInteger
-    ^ self wordAt:1 MSB:false
+    ^ self signedWordAt:1 MSB:false
 
     "
      ODBCLibrary::ExternalLong new value:10
@@ -65,6 +65,14 @@
     ^ nil
 !
 
+boolean:bool
+
+    |result|
+
+    bool ifTrue:[self byteAt:1 put:1].
+    self byteAt:1 put:0.
+!
+
 value
     ^ self doubleWordAt:1
 
@@ -80,5 +88,5 @@
 !ExternalLong class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.1 1998-01-21 14:06:50 dq Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.2 1998-01-28 16:22:27 dq Exp $'
 ! !