--- a/SmallInteger.st	Tue May 20 16:46:11 1997 +0200
+++ b/SmallInteger.st	Tue May 20 18:56:44 1997 +0200
@@ -813,7 +813,7 @@
     if (bits == 0) {
 	RETURN ( __MKSMALLINT(-1) );
     }
-#ifdef alpha
+#ifdef alpha64
     mask = 0x2000000000000000;
     index = 62;
 #else
@@ -865,7 +865,7 @@
         }
     }
 
-#ifdef alpha
+#ifdef alpha64
     while (index != 63) {
 #else
     while (index != 31) {
@@ -923,7 +923,7 @@
 	    case 4:
 		val = (val >> 24);
 		break;
-#ifdef alpha
+#ifdef alpha64
 	    case 5:
 		val = (val >> 32);
 		break;
@@ -2376,5 +2376,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.75 1997-05-16 15:04:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.76 1997-05-20 16:56:44 cg Exp $'
 ! !