1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/ncon.pas b/compiler/ncon.pas
index 3ab333b942..b9343e6a27 100644
--- a/compiler/ncon.pas
+++ b/compiler/ncon.pas
@@ -912,14 +912,16 @@ implementation
     procedure tstringconstnode.buildderefimpl;
       begin
         inherited buildderefimpl;
-        astringdefderef.build(astringdef);
+        if cst_type=cst_ansistring then
+          astringdefderef.build(astringdef);
       end;
 
 
     procedure tstringconstnode.derefimpl;
       begin
         inherited derefimpl;
-        astringdef:=tdef(astringdefderef.resolve);
+        if cst_type=cst_ansistring then
+          astringdef:=tdef(astringdefderef.resolve);
       end;