diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index 43ec1ce44a..53eb8dfea3 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -223,7 +223,7 @@ implementation
                             end;
                pointerdef : begin
                             { pchar can be assigned to short/ansistrings }
-                              if is_pchar(def_from) then
+                              if is_pchar(def_from) and not(m_tp in aktmodeswitches) then
                                begin
                                  doconv:=tc_pchar_2_string;
                                  b:=true;
@@ -713,7 +713,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.12  1998-12-11 00:03:18  peter
+  Revision 1.13  1998-12-15 17:11:37  peter
+    * string:=pchar not allowed in tp mode
+
+  Revision 1.12  1998/12/11 00:03:18  peter
     + globtype,tokens,version unit splitted from globals
 
   Revision 1.11  1998/12/10 09:47:21  florian