--- a/ExternalLong.st	Wed Dec 22 12:23:51 2010 +0100
+++ b/ExternalLong.st	Wed Dec 22 19:19:17 2010 +0100
@@ -100,11 +100,14 @@
 !
 
 asInteger
-    ^ self signedWordAt:1 MSB:false
+    ^ self signedDoubleWordAt:1 MSB:false
 
     "
-     ODBCLibrary::ExternalLong new value:10
+     ExternalLong new value:10
+     (ExternalLong new value:16rFFFFFF) asInteger
     "
+
+    "Modified: / 22-12-2010 / 18:34:02 / cg"
 !
 
 asNullStatus
@@ -124,6 +127,16 @@
     "
 !
 
+asUnsignedInteger
+    ^ self doubleWordAt:1 MSB:false
+
+    "
+     (ExternalLong new value:10) asUnsignedInteger
+    "
+
+    "Created: / 22-12-2010 / 18:31:03 / cg"
+!
+
 boolean:bool
     bool ifTrue:[self byteAt:1 put:1].
     self byteAt:1 put:0.
@@ -154,9 +167,9 @@
 !ExternalLong class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.8 2010-12-20 15:29:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.9 2010-12-22 18:19:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.8 2010-12-20 15:29:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.9 2010-12-22 18:19:17 cg Exp $'
 ! !