--- a/ExternalLong.st	Fri Apr 24 14:18:00 2015 +0200
+++ b/ExternalLong.st	Fri Apr 24 14:18:20 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ExternalBytes subclass:#ExternalLong
 	instanceVariableNames:''
 	classVariableNames:''
@@ -116,9 +120,9 @@
      pointer (i.e. either 32 or 64bit)"
 
     ExternalAddress pointerSize == 8 ifTrue:[
-	^ self lonhLongAt:1 MSB:(UninterpretedBytes isBigEndian)
+        ^ self longLongAt:1 bigEndian:IsBigEndian
     ] ifFalse:[
-	^ self signedDoubleWordAt:1 MSB:(UninterpretedBytes isBigEndian)
+        ^ self signedDoubleWordAt:1 MSB:IsBigEndian
     ]
 
     "
@@ -159,9 +163,9 @@
      pointer (i.e. either 32 or 64bit)"
 
     ExternalAddress pointerSize == 8 ifTrue:[
-	^ self unsignedLongLongAt:1 MSB:(UninterpretedBytes isBigEndian)
+        ^ self unsignedLongLongAt:1 bigEndian:IsBigEndian
     ] ifFalse:[
-	^ self doubleWordAt:1 MSB:false
+        ^ self doubleWordAt:1 MSB:IsBigEndian
     ]
 
     "
@@ -202,9 +206,10 @@
 !ExternalLong class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.13 2013-04-02 09:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.14 2015-04-24 12:18:20 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.13 2013-04-02 09:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.14 2015-04-24 12:18:20 stefan Exp $'
 ! !
+