--- a/Integer.st	Thu Feb 22 16:33:31 2001 +0100
+++ b/Integer.st	Wed Feb 28 14:14:13 2001 +0100
@@ -1727,8 +1727,8 @@
      the receiver raised to exp (an Integer) and mod (another Integer)"
 
     |result m t 
-     bits "{Class: SmallInteger}"
-     eI   "{Class: SmallInteger}"|
+"/     eI   "{Class: SmallInteger}"
+     bits "{Class: SmallInteger}"|
 
     "use the addition chaining algorithm"
 
@@ -1873,7 +1873,9 @@
 raisedToInteger:exp 
     "return the receiver raised to exp"
 
-    |result e t bits "{SmallInteger}"|
+    |result e t 
+"/     bits "{SmallInteger}"
+    |
 
     "use the addition chaining algorithm"
 
@@ -2643,6 +2645,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.135 2001-02-06 11:11:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.136 2001-02-28 13:12:23 stefan Exp $'
 ! !
 Integer initialize!