--- a/Integer.st	Tue Nov 26 16:48:39 2002 +0100
+++ b/Integer.st	Tue Nov 26 17:11:11 2002 +0100
@@ -773,9 +773,17 @@
 
 ! !
 
-
 !Integer methodsFor:'Compatibility - Dolphin'!
 
+& aNumber
+    ^ self bitAnd:aNumber
+
+    "
+     14 | 1 
+     9 & 8 
+    "
+!
+
 highWord
     "return the high 16 bits of a 32 bit value"
 
@@ -827,6 +835,15 @@
      1024 printStringRadix:2 size:16 fill:$.
      1024 printStringRadix:16 size:8 fill:(Character space)
     "
+!
+
+| aNumber
+    ^ self bitOr:aNumber
+
+    "
+     14 | 1 
+     9 & 8 
+    "
 ! !
 
 !Integer methodsFor:'Compatibility - Squeak'!
@@ -3117,7 +3134,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.153 2002-11-20 10:30:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.154 2002-11-26 16:11:11 cg Exp $'
 ! !
 
 Integer initialize!