diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas
index 1da551b2f4..51db5d78f4 100644
--- a/compiler/cclasses.pas
+++ b/compiler/cclasses.pas
@@ -1827,8 +1827,6 @@ end;
 
     function Tdictionary.search(const s:string):TNamedIndexItem;
 
-    var t:string;
-
     begin
       search:=speedsearch(s,getspeedvalue(s));
     end;
@@ -2366,7 +2364,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.43  2005-03-04 16:49:22  peter
+  Revision 1.44  2005-03-25 23:03:04  jonas
+    - removed unused variables
+
+  Revision 1.43  2005/03/04 16:49:22  peter
     * getheapstatus fixes
 
   Revision 1.42  2005/02/28 15:38:38  marco
diff --git a/compiler/node.pas b/compiler/node.pas
index ea8c3daad0..5f330bd480 100644
--- a/compiler/node.pas
+++ b/compiler/node.pas
@@ -465,8 +465,6 @@ implementation
 
 
     function nodeppuidxget(i:longint):tnode;
-      var
-        l : longint;
       begin
         if i<0 then
           internalerror(200311072);
@@ -1128,7 +1126,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.97  2005-03-05 16:17:30  jonas
+  Revision 1.98  2005-03-25 23:03:04  jonas
+    - removed unused variables
+
+  Revision 1.97  2005/03/05 16:17:30  jonas
     * fixed printnodelist indentation
 
   Revision 1.96  2005/02/14 17:13:06  peter