--- a/Interval.st	Wed Oct 26 23:35:39 2016 +0100
+++ b/Interval.st	Fri Nov 18 20:48:04 2016 +0000
@@ -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: