Index: mttroot/mtt/bin/trans/p/zero_vector.p
==================================================================
--- mttroot/mtt/bin/trans/p/zero_vector.p
+++ mttroot/mtt/bin/trans/p/zero_vector.p
@@ -2,9 +2,9 @@
 			  N : INTEGER);
 VAR i : INTEGER;
    
 BEGIN
    FOR i:=1 TO N DO
-      x[i] = 0.0;
+      x[i] := 0.0;
 END;