--- a/LinkedList.st	Mon Nov 08 03:29:58 1993 +0100
+++ b/LinkedList.st	Mon Nov 08 03:32:43 1993 +0100
@@ -25,7 +25,7 @@
 this class implements an anchor to a list of Links.
 The data itself is held in the Link elements (see Link and subclasses).
 
-$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.4 1993-10-13 02:12:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.5 1993-11-08 02:30:50 claus Exp $
 '!
 
 !LinkedList class methodsFor:'instance creation'!
@@ -162,6 +162,7 @@
         ] ifFalse:[
             firstLink := firstLink nextLink
         ].
+        link nextLink:nil.
         numberOfNodes := numberOfNodes - 1
     ].
     ^ link
@@ -190,6 +191,7 @@
                 ]
             ].
             numberOfNodes := numberOfNodes - 1.
+            thisNode nextLink:nil.
             ^ self
         ].
         prevNode := thisNode.