Index: mttroot/mtt/lib/cr/perl/lin.pm
==================================================================
--- mttroot/mtt/lib/cr/perl/lin.pm
+++ mttroot/mtt/lib/cr/perl/lin.pm
@@ -92,17 +92,17 @@
 	    $in_port) = @args;
 
 	if (($out_port == 2) and
 	    ($in_port  == 1))
 	{			# uni-causal
-	    $retval = "((input)*(gain))";
+	    $retval = "(($input)*($gain))";
 	}
 
 	elsif (($out_port == 1) and
 	       ($in_port  == 2))
 	{			# bi-causal
-	    $retval = "((input)/(gain))";
+	    $retval = "(($input)/($gain))";
 	}
     }
     
     if ($retval)
     {