--- a/Integer.st	Mon Apr 15 15:07:21 2013 +0200
+++ b/Integer.st	Mon Apr 15 15:07:33 2013 +0200
@@ -757,8 +757,6 @@
     "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 
-
-
 !Integer class methodsFor:'class initialization'!
 
 initialize
@@ -1142,7 +1140,6 @@
     ^ self == Integer
 ! !
 
-
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 & aNumber
@@ -2433,6 +2430,13 @@
     "Created: 7.5.1996 / 09:31:52 / cg"
 !
 
+signExtendedLongValue
+    "return a smallInteger from sign-extending the 32'th bit.
+     May be useful for communication interfaces"
+
+    ^ (self bitAnd:16rFFFFFFFF) signExtendedLongValue
+!
+
 signExtendedShortValue
     "return a smallInteger from sign-extending the 16'th bit.
      May be useful for communication interfaces"
@@ -4242,7 +4246,6 @@
     "Created: / 09-01-2012 / 17:18:06 / cg"
 ! !
 
-
 !Integer methodsFor:'special modulu arithmetic'!
 
 add_32:anInteger
@@ -4929,11 +4932,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.276 2013-03-26 16:57:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.277 2013-04-15 13:07:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.276 2013-03-26 16:57:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.277 2013-04-15 13:07:33 cg Exp $'
 ! !