Index: mttroot/mtt/lib/cr/perl/apply_cr.pl
==================================================================
--- mttroot/mtt/lib/cr/perl/apply_cr.pl
+++ mttroot/mtt/lib/cr/perl/apply_cr.pl
@@ -135,16 +135,18 @@
     if ($cr eq '') {
 	return;
     }
 
     # call cr(arg1,arg2,...)
-    no strict 'refs';		# allow symbolic references
-    my $expr = $expressions[$i];
-    eval "require $cr";
-    $cr->import (@_[1 .. $#_]);    
-    &$cr ($expr);
-    use strict 'refs';
+    if (-e "$cr.pm") {
+	no strict 'refs';		# allow symbolic references
+	my $expr = $expressions[$i];
+	eval "require $cr";
+	$cr->import (@_[1 .. $#_]);    
+	&$cr ($expr);
+	use strict 'refs';
+    }
 
 }
 #-------------------------------------------------------------------------------
 sub display_subexpressions() {