[WWcvs] pg: Make sure the constructor creates the interval in the correct context.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Make sure the constructor creates the interval in the correct context.

Modified Files:
--------------
    pg/lib/Value:
        Interval.pm

Revision Data
-------------
Index: Interval.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Interval.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -Llib/Value/Interval.pm -Llib/Value/Interval.pm -u -r1.41 -r1.42
--- lib/Value/Interval.pm
+++ lib/Value/Interval.pm
@@ -22,7 +22,7 @@
       return $x if $x->type eq 'Interval';
       Value::Error("Formula does not return an Interval");
     }
-    return $self->promote($x);
+    return $self->promote($context,$x);
   }
   my @params = @_;
   Value::Error("Interval can't be empty") unless scalar(@params) > 0;