--- a/LinkedList.st	Mon Nov 29 18:16:40 2010 +0100
+++ b/LinkedList.st	Mon Nov 29 18:17:53 2010 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 SequenceableCollection subclass:#LinkedList
@@ -331,21 +330,21 @@
      if found, return the index otherwise return 0. Here, index is defined
      as the link-nodes position in the list.
      The comparison is done using ==
-     (i.e. equality test - not identity test)."
+     (i.e. identity test - not equality test)."
 
     |theNode idx "{ Class: SmallInteger }"|
 
     theNode := firstLink.
     idx := 1.
     [idx < start] whileTrue:[
-	theNode isNil ifTrue:[^ 0].     "reached the end"
-	theNode := theNode nextLink.
-	idx := idx + 1.
+        theNode isNil ifTrue:[^ 0].     "reached the end"
+        theNode := theNode nextLink.
+        idx := idx + 1.
     ].
     [theNode notNil] whileTrue:[
-	(aLink == theNode) ifTrue:[^ idx].
-	theNode := theNode nextLink.
-	idx := idx + 1.
+        (aLink == theNode) ifTrue:[^ idx].
+        theNode := theNode nextLink.
+        idx := idx + 1.
     ].                                  "reached the end"
     ^ 0
 
@@ -422,5 +421,9 @@
 !LinkedList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.37 2007-07-05 11:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.38 2010-11-29 17:17:53 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.38 2010-11-29 17:17:53 stefan Exp $'
 ! !