diff --git a/compiler/cg386con.pas b/compiler/cg386con.pas
index e9bbea08b1..dc7f929662 100644
--- a/compiler/cg386con.pas
+++ b/compiler/cg386con.pas
@@ -229,7 +229,7 @@ implementation
                                 pc[p^.length]:=#0;
                                 { to overcome this problem we set the length explicitly }
                                 { with the ending null char }
-                                consts^.concat(new(pai_string,init_length_pchar(pc,p^.length)));
+                                consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+1)));
                              end;
                         end;
                       st_shortstring:
@@ -325,7 +325,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.15  1998-11-04 10:11:36  peter
+  Revision 1.16  1998-11-04 21:07:43  michael
+  * undid peters change. Constant ansistrings should end on null too cd ..
+
+  Revision 1.15  1998/11/04 10:11:36  peter
     * ansistring fixes
 
   Revision 1.14  1998/09/17 09:42:13  peter