--- a/DoubleLink.st	Thu Jun 09 12:21:13 2016 +0200
+++ b/DoubleLink.st	Thu Jun 09 12:23:06 2016 +0200
@@ -64,6 +64,12 @@
     previousLink := aLInk.
 ! !
 
+!DoubleLink methodsFor:'converting'!
+
+asDoubleLink
+    ^ self
+! !
+
 !DoubleLink class methodsFor:'documentation'!
 
 version