--- a/Link.st	Tue Feb 04 21:09:59 2014 +0100
+++ b/Link.st	Wed Apr 01 10:20:10 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#Link
 	instanceVariableNames:'nextLink'
 	classVariableNames:''
@@ -60,15 +62,15 @@
     nextLink := aLink
 ! !
 
+!Link methodsFor:'converting'!
+
+asLink
+    ^ self
+! !
+
 !Link class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Link.st,v 1.12 1996/04/25 16:16:29 cg Exp $'
-!
-
-version_SVN
-    ^ '$Id: Link.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Link.st,v 1.13 2014-12-29 23:51:04 cg Exp $'
 ! !
 
-
-