--- a/Interval.st	Fri Oct 28 17:37:41 2016 +0200
+++ b/Interval.st	Sat Oct 29 14:10:49 2016 +0200
@@ -220,6 +220,10 @@
 
 !Interval methodsFor:'converting'!
 
+asInterval
+    ^ self.
+!
+
 fromLiteralArrayEncoding:encoding
     "read my values from an encoding.
      The encoding is supposed to be either of the form: