diff --git a/compiler/tcld.pas b/compiler/tcld.pas
index b1eaf3ac90..41514ec62d 100644
--- a/compiler/tcld.pas
+++ b/compiler/tcld.pas
@@ -60,7 +60,8 @@ implementation
 
       begin
          if (p^.symtable^.symtabletype=withsymtable) and
-            (pwithsymtable(p^.symtable)^.direct_with) then
+            (pwithsymtable(p^.symtable)^.direct_with) and
+            (p^.symtableentry^.typ=varsym) then
            begin
               p1:=getcopy(ptree(pwithsymtable(p^.symtable)^.withrefnode));
               p1:=gensubscriptnode(pvarsym(p^.symtableentry),p1);
@@ -453,7 +454,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.33  1999-05-27 19:45:21  peter
+  Revision 1.34  1999-06-01 19:26:39  peter
+    * fixed bug 249
+
+  Revision 1.33  1999/05/27 19:45:21  peter
     * removed oldasm
     * plabel -> pasmlabel
     * -a switches to source writing automaticly