--- a/Dictionary.st	Thu Feb 22 16:33:31 2001 +0100
+++ b/Dictionary.st	Wed Feb 28 14:14:13 2001 +0100
@@ -642,7 +642,7 @@
              See #saveRemoveKey: to do this."
 
     |index "{ Class:SmallInteger }"
-     next  "{ Class:SmallInteger }" 
+     "/ next  "{ Class:SmallInteger }" 
      oldValue k|
 
     (k := aKey) isNil ifTrue:[
@@ -1835,6 +1835,6 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.70 2000-11-10 15:27:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.71 2001-02-28 13:13:11 stefan Exp $'
 ! !
 Dictionary initialize!

--- a/FloatArray.st	Thu Feb 22 16:33:31 2001 +0100
+++ b/FloatArray.st	Wed Feb 28 14:14:13 2001 +0100
@@ -400,7 +400,7 @@
 absMax
     "return the largest absolute value"
 
-    |mm min max|
+    |mm|
 
     mm := self minMax.
     ^ (mm at:1) abs max:(mm at:2) abs
@@ -612,5 +612,5 @@
 !FloatArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.17 2000-12-29 21:02:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.18 2001-02-28 13:14:13 stefan Exp $'
 ! !

--- 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!

--- a/SortedCollection.st	Thu Feb 22 16:33:31 2001 +0100
+++ b/SortedCollection.st	Wed Feb 28 14:14:13 2001 +0100
@@ -290,7 +290,7 @@
     "add all elements of the argument, aCollection to the receiver. 
      Returns the argument, aCollection (sigh)."
 
-    |addedCollection s|
+    |addedCollection|
 
     (aCollection isSortedCollection
     and:[aCollection sortBlock == sortBlock]) ifTrue:[
@@ -837,6 +837,6 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.48 2000-10-17 15:54:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.49 2001-02-28 13:13:46 stefan Exp $'
 ! !
 SortedCollection initialize!