diff --git a/tests/function/tough.hs b/tests/function/tough.hs
index ea77cfa028cff8cfc50af5947cc33f3bc501296d..ed3f3a01fb2ac4383eddc0c43594b5b94df43e74 100644
--- a/tests/function/tough.hs
+++ b/tests/function/tough.hs
@@ -6,11 +6,11 @@ main = do
   print ("Hello")
   foo "Hello"
   E.catch (print (badCase 22 44))
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   E.catch (print (badCase 22 (error "Foo")))
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   E.catch (print "Bark")
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   (_,_) <- return $ ("Hello","World")
   return ()
   () <- return ()
diff --git a/tests/function/tough.stdout b/tests/function/tough.stdout
index 8767f132d74f2cc3721abde8d1e1d1815c5f498b..06d918ed0f9969ef874a4f1424274a9477ea251c 100644
--- a/tests/function/tough.stdout
+++ b/tests/function/tough.stdout
@@ -48,11 +48,11 @@ span.spaces    { background: white }
 <span class="lineno">    6 </span><span class="spaces">  </span><span class="istickedoff">print (&quot;Hello&quot;)</span>
 <span class="lineno">    7 </span><span class="spaces">  </span><span class="istickedoff">foo &quot;Hello&quot;</span>
 <span class="lineno">    8 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print (badCase 22 <span class="nottickedoff">44</span>))</span>
-<span class="lineno">    9 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print e)</span>
+<span class="lineno">    9 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span>
 <span class="lineno">   10 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print (badCase 22 <span class="nottickedoff">(error &quot;Foo&quot;)</span>))</span>
-<span class="lineno">   11 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print e)</span>
+<span class="lineno">   11 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span>
 <span class="lineno">   12 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print &quot;Bark&quot;)</span>
-<span class="lineno">   13 </span><span class="spaces">          </span><span class="istickedoff"><span class="nottickedoff">(\ e -&gt; print e)</span></span>
+<span class="lineno">   13 </span><span class="spaces">          </span><span class="istickedoff"><span class="nottickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span></span>
 <span class="lineno">   14 </span><span class="spaces">  </span><span class="istickedoff">(_,_) &lt;- return $ (<span class="nottickedoff">&quot;Hello&quot;</span>,<span class="nottickedoff">&quot;World&quot;</span>)</span>
 <span class="lineno">   15 </span><span class="spaces">  </span><span class="istickedoff">return <span class="nottickedoff">()</span></span>
 <span class="lineno">   16 </span><span class="spaces">  </span><span class="istickedoff">() &lt;- return ()</span>