diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index 5e7f120b56..a6a8cdc661 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -750,8 +750,10 @@ implementation
         hp:=p;
         while assigned(hp) do
          begin
+           { property allowed? calln has a property check itself }
            if (not allowprop) and
-              (hp^.isproperty) then
+              (hp^.isproperty) and
+              (hp^.treetype<>calln) then
             begin
               CGMessagePos(hp^.fileinfo,type_e_argument_cant_be_assigned);
               exit;
@@ -887,7 +889,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.56  2000-02-01 09:41:27  peter
+  Revision 1.57  2000-02-05 12:11:50  peter
+    * property check for assigning fixed for calln
+
+  Revision 1.56  2000/02/01 09:41:27  peter
     * allow class -> voidpointer for delphi mode
 
   Revision 1.55  2000/01/07 01:14:27  peter