--- a/LinkedList.st	Sat Dec 11 01:46:55 1993 +0100
+++ b/LinkedList.st	Sat Dec 11 01:59:35 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.5 1993-11-08 02:30:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LinkedList.st,v 1.6 1993-12-11 00:50:14 claus Exp $
 '!
 
 !LinkedList class methodsFor:'instance creation'!
@@ -45,6 +45,8 @@
 !LinkedList methodsFor:'copying'!
 
 deepCopy
+    "a kludge, to be removed when deepCopy handles recursive structures"
+
     |newList|
     newList := self shallowCopy.
     newList setFirstNode:(firstLink deepCopy).
@@ -141,7 +143,7 @@
     [this notNil and:[this ~~ aLink]] whileTrue:[
         this := this nextLink
     ].
-    this isNil ifTrue:[ ^ self addLast:linkToAdd ].
+    this isNil ifTrue:[ ^ self add:linkToAdd ].
     linkToAdd nextLink:(this nextLink).
     this nextLink:linkToAdd.
     ^ linkToAdd