--- a/LargeInteger.st	Wed Sep 26 15:11:37 2001 +0200
+++ b/LargeInteger.st	Wed Sep 26 15:17:34 2001 +0200
@@ -871,6 +871,12 @@
         v1 = v1 | ((digits[1] & 0xFF)<<8);
         v1 = v1 | ((digits[2] & 0xFF)<<16);
         v1 = v1 | ((digits[3] & 0xFF)<<24);
+        if (sizeof(unsigned INT) == 8) {
+            v1 = v1 | ((digits[4] & 0xFF)<<32);
+            v1 = v1 | ((digits[5] & 0xFF)<<40);
+            v1 = v1 | ((digits[6] & 0xFF)<<48);
+            v1 = v1 | ((digits[7] & 0xFF)<<56);
+        }
 #endif
 
         RETURN ( __MKSMALLINT(v1 & v2) );
@@ -4367,5 +4373,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.158 2001-09-04 11:40:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.159 2001-09-26 13:17:34 cg Exp $'
 ! !